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Introduction 



Objectives 



Sometimes I hear people talk about how smart computers have become. But 
computers aren't smart: programmers are. Programmers make microprocessors act 
like calculators, moon landers, or income tax preparers. Programmers must be 
smart, because by themselves microprocessors can't do much of anything. 

Sound programming, then, is fundamental to successful computer use. With 
this principle in mind, this book has two objectives: first, to introduce newcomers to 
some of the techniques, terminology, and power of assembly-language program- 
ming in general, and of the 6502 in particular; and second, to present a set of soft- 
ware tools to use in developing assembly-language programs for the 6502. 

Chapter 1 takes you on a quick tour of your computer's hardware and soft- 
ware; Chapters 2 thru 4 comprise a short course in assembly-language programming 
for those readers new to the subject. The rest of the book presents source listings, 
object code, and assembler listings for programs that you may enter into your com- 
puter and run. 

Programmers have long sought to develop small and fast programs with the un- 
fortunate result that occasionally code has been written that is unreadable (and even 
unworkable) simply because a programmer wanted to save a few bytes or a few 
cycles. In certain instances when memory space is particularly tight or execution 
time is critical, readability is sacrificed for performance. But today the average pro- 
grammer is not forced to make this choice. Of course, all other things being equal, I, 
too, value programs that are quick and compact. 

But how often are all other things equal? 

While developing the programs that appear in this book, I had a number of ob- 
jectives, most of them more important than the speed or size of a block of code. I 
designed these programs to be: 

Useful: No program is presented simply to demonstrate a particular program- 
ming technique. All of the programs in this book were written because I needed cer- 
tain things done — usually something I didn't want to be bothered with doing 
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myself. The monitor monitors, the disassembler disassembles, and the text editor 
lets me enter and edit text strings. These programs earn their keep. 

Easy to Use: Simply by glancing at the screen you can tell which program is 
running and what mode it is in. When a program needs information, it asks you for 
it and allows you to correct mistakes you might make while answering. This soft- 
ware doesn't require you to remember the addresses of programs or of variables. 
Functions are mapped to individual keys, and you can assign functions to keys in 
any way that makes sense to you. 

Readable: A beginning 6502 programmer should be able to understand the 
workings of every program in this book. The labels and comments in the listings 
were carefully chosen to reveal the purpose of each variable, subroutine, and line of 
code. I am writing first and foremost for you, the reader, not for the 6502. 

Portable: The book's software runs on a Commodore 64 or VIC-20 computer. 
With proper initialization of the System Data Block, it should run on any 6502- 
based computer equipped with a keyboard and a memory-mapped, character- 
graphics video display. 

Compatible: These routines are very good neighbors. As long as the other soft- 
ware in your system does not use the fourth 4 K block of memory (hexadecimal 
memory locations 3000 thru 3FFF), there should be no conflict between your soft- 
ware and the software in this book. In particular, most of the software in this book 
preserves the zero page, so your software may use the zero page as much as you like, 
and you won't be bothered with having to save and restore it before and after calls 
to the software presented herein. 

Expandable: The programs in this book are highly modular, and you may ex- 
tend or restructure them to meet your individual needs. System-specific subroutines 
are called indirectly, so that other subroutines may be substituted for them, and 
most values are treated as variables, rather than as constants hard-wired into the 
code. There are no monolithic programs in this book; they're all subroutines and 
may be combined in many ways to build powerful new structures. 

Compact: I know that every personal computer has exactly the same available 
memory: too little. I also know ways to write a program in ten or twenty percent 
less space. But if doing so required sacrificing readability, portability, or expand- 
ability, I did not do so. In many cases I feared that to save a byte, I might lose a 
reader's clear understanding of how a program works. I considered that too great a 
price to pay for a somewhat smaller program. 

Note: If you have a VIC-20, you must have 8 K of expansion RAM to run the 

software in this book. 

Fast: Assuming that the above objectives have been met, the software in this 
book has been developed to operate as quickly as possible. But in any trade-off be- 
tween speed and the other objectives, speed loses. A fast program that you can't 
understand holds little value. None of the programs in this book are likely to make 
you complain about how long you have to wait. I can't tell if I'm waiting an extra 
millisecond. Can you? 

So go ahead. Read. Program. Enjoy! 



Chapter I : 

Your Computer 



Your Commodore 64 or VIC-20 is a very powerful computer. But to take ad- 
vantage of that power, we must understand how it works. So before we begin pro- 
gramming it, let's take a quick tour of your computer. 



The 6502 Microprocessor 

Well start with the 6502 microprocessor, the component in your system that 
actually computes. By itself, the 6502 can't do much. It has three registers (special 
memory areas for storing the data upon which the program is operating), called A, 
X, and Y, which can each hold a number in the range of to 255. Different registers 
have different capabilities. For example, if a number is in A (the accumulator), the 
6502 can add to it, or subtract from it, any value up to 255. But if a number is in the 
X register or the Y register, the 6502 can only increment or decrement that number 
(ie: add or subtract one from it). 

The 6502 can also set one register equal to the value of another register, and it 
can store the contents of any register anywhere in memory, or load any register 
from any location in memory. Thus, although the 6502 can only operate on one 
number at a time, it can operate on many numbers, just by loading registers from 
various locations in memory, operating on the registers, and then storing the results 
of those operations back into memory. 



Types of Memory 

You may have heard that a computer stores information as a series of ones and 
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zeros. This is because the computer's memory is simply an elaborate array of 
switches, and an individual switch can have only two states: closed or open. These 
two states may also be expressed as on and off, or as one and zero. 

Not all memory switches are the same. Some, in what is called ROM (read-only 
memory), are hard-wired into your computer's circuitry and cannot be changed ex- 
cept by physically replacing the ROM circuits containing those switches. Others, in 
what is called RAM (random-access memory) or programmable memory, can be 
changed by the processor. The 6502 can open or close any of the switches, called bits 
(binary digits), in its programmable memory, and later on read what it "wrote" into 
that memory. Figure 1.1 shows how the processor has access to read-only memory 
and programmable memory. 
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Figure 1.1: How the 6502 interacts with memory. The arrows indicate the flow of data. 



A third kind of memory is set by some external device, not by the 6502. Such 
memory switches are called input ports, and may be connected to keyboards, ter- 
minals, burglar alarms — virtually anything that can generate an electrical signal. 
The 6502 perceives these externally generated signals by reading the appropriate in- 
put ports. 

Yet another kind of memory switch, called an output port, generates a high or a 
low voltage on some particular wire depending on whether the 6502 sets a given 
memory switch to a one or a zero. One or more of these output ports can enable the 
6502 to "talk" to the outside world. 

Now don't jump up and think I'm going to show you how to synthesize speech 
in this book. 'Talk" is just my way of anthropomorphizing the 6502. It will happen 
elsewhere in this book, when the 6502 "sees," "remembers," and "knows" what to 
do. Of course the 6502 doesn't see, remember, or know anything, but I often find it 
helpful to put myself in its place. That way I can better understand how a program 
will run, or why a program doesn't run, and I do see, remember, and know things. 

But don't take such verbs too literally. The 6502 doesn't talk. It causes signals to 
be generated that may be sensed by other devices, such as cassette recorders, 
printers, disk drives — and yes, even speech synthesizers. But not in this book. 

Some peripheral devices are actually connected to both an input and an output 
port. Examples of these devices are cassette tape machines and floppy-disk drives, 



which are mass-storage or secondary-storage devices. Figure 1.2 summarizes the 
processor's access to memory and to peripheral devices. 
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Figure 1.2: A summary of the 6502 microprocessors access to data in main memory and 
through I/O (input and output) ports. The arrows indicate the flow of data. 



A video screen connected to your computer looks like memory to the 6502, so 
the 6502 can read from and write to the screen. The keyboard is scanned by I/O (in- 
put/output) ports that are decoded to look like any other programmable memory 
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address, so the 6502 can look at the keyboard just by looking at a particular place in 
memory. Thus, the 6502 can interact directly with memory only, but because all 
I/O devices are mapped to addresses in memory, the 6502 can interact with the user. 
See figure 1.3. 




MEMORY 









6502 



Figure 1.3: How the 6502 interacts with the user. Arrows indicate the flow of data. 



The Operating System 

Thus far we have discussed your machine's hardware. But the Commodore 64 
and VIC-20 computers feature more than hardware. For example, these computers 
have an operating system (stored in ROM) which includes the I/O software rou- 
tines that are needed to use the screen and the keyboard. We are not particularly 
concerned with how these subroutines work, but we depend on them to be there 
when we need them. 

There are many other subroutines in your computer's operating system. The 
Programmer's Reference Guide for your system describes these subroutines in de- 
tail. All of this means power for you, the programmer. The more you know about 
your computer, the more you can make it do. Because the software in this book 
was developed to run on a number of systems, I chose not to use routines available 
in your machine's ROM, no matter how powerful they might be, unless I could be 
sure that they would be available in the operating systems of many popular per- 
sonal computers. In other words, the software in this book does not take full ad- 
vantage of the power in your operating system. But the software you write, which 
need only run on your system, should exploit to the fullest the power of your com- 
puter's ROM routines. 



BASIC 

One of the most important features of your computer is the BASIC interpreter 
in ROM. This interpreter is a program that enables your computer to understand 
commands given in BASIC. Your system's documentation tells you what com- 
mands are legal in the particular dialect of BASIC implemented on your machine. 
BASIC is an easy language to learn and you can do a lot with it. 

However, each BASIC statement must be analyzed (parsed) by the BASIC in- 
terpreter before the computer can take any action. So a BASIC program is not very 
fast— certainly not as fast as a comparable program written in 6502 code. 



6502 Code 

The central processor is the computer's heart. The Commodore 64 and VIC-20 
computers use the 6502 microprocessor. Every microprocessor has a certain instruc- 
tion set, or group of instructions, which the microprocessor can execute. These in- 
structions are at a much lower level than the BASIC commands with which you 
may be familiar. For example, in BASIC you can have a single line in a program to 
PRINT "HELLO." It would take a sequence of many 6502 instructions to perform 
the same function. 

A given sequence of microprocessor instructions will run on any computer 
featuring that microprocessor. Thus, if you write a program consisting of 6502 in- 
structions to perform some function, that program should run on any 6502-based 
computer. It won't run on an 8080-based computer, a Z80-based computer, or a 
6800-based computer, but it should run on an Apple, a PET, an Atari, an OSI, or 
any other system built around a 6502. 6502 programs can also run much faster than 
equivalent programs written in BASIC and can be smaller than BASIC programs. 
The programs presented in this book are all written in 6502 code, and require only 
half of the memory available on a computer containing 8,000 bytes of program- 
mable memory, thus leaving more than enough room for your own programs. 
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Chapter 2: 



Introduction to Assembler 



Ever watch a juggler or a good juggling team? The balls, pins, or whatever are 
in the air in such intricate patterns that you can hardly follow them, let alone 
duplicate the performance yourself. It's beautiful, but not magic; just an application 
of some simple rules. I've learned to juggle recently, and although I'm still a rank 
beginner, I've taught my two hands to keep three balls moving through the air. Yet 
neither hand knows very much. A hand will toss a ball into the air, and then it will 
catch a ball. The other hand will toss a ball into the air, and then it will catch a ball. 
That's all. My hands perform only two operations: toss and catch. Yet with those 
two primitive operations I can put on a pleasant little performance. 

Assembly-language programming is not so different from juggling. Like jug- 
gling, programming enables you to put on an impressive or baffling performance. In 
its simplest terms, juggling is nothing more than taking something from one place 
and putting it someplace else. The same thing is true of the central processor: the 
6502 takes something from one place and puts it someplace else. 

In fact, programming the 6502 is easier than juggling in several ways. First, the 
6502 is obviously much faster than even the most skillful juggler. In the time it takes 
me to pick up a ball with one hand and place that ball somewhere else, the 6502 can 
get something from one place and put it someplace else hundreds of thousands of 
times. Sleight of hand requires quickness, and the 6502 is quick. 

The 6502 even gives me a helping hand. When I try to juggle, I must keep the 
balls moving with nothing but my two hands. But my home computer has three 
hands (registers A, X, and Y in the 6502) and thousands of pockets (8,000 bytes or 
more of programmable memory). 

A byte is 8 bits of data that may be loaded together into a register. A register 
holds 1 byte. Each location in memory holds 1 byte. The 6502 can affect only 1 byte 
in one operation. But because the 6502 can perform hundreds of thousands of opera- 
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tions each second, it can affect hundreds of thousands of bytes each second. 



Binary 

In the final analysis, any value is stored within the computer as a series of bits. 
If we wish, we may specify a byte by its bit pattern: such a representation uses only 
ones and zeroes, and is called binary. For example, the number 25 in binary is 
00011001. 

In binary, each bit indicates the presence or absence of some value. Each bit 
represents twice as much value, or significance, as the bit to its right, so the right- 
most bit is the least significant, and the left-most bit is the most significant. Table 2.1 
gives the significance of each bit in an 8-bit byte: 



Table 2.1: Bit significance in an S-bit byte. 



Bit Number: hi b6 

Bit Significance: 128 64 



The right-most bit (called bit 0) tells us whether we have a one in our byte. The 
bit to its left (bit 1) tells us whether we have a two; the bit to its left tells us whether 
we have a four... and the leftmost bit (bit 7) tells us whether we have a 128 in our 
byte. 

To determine the bit pattern for a given value — say, 25 — determine first what 
powers of two must be added to equal your value. For instance, 25 = 16 + 8 + 1, 
so 25 in binary is 00011001. 

Twenty-five can be expressed in other ways as well. Rather than specify every 
number as a pattern of eight ones and zeros, we often express numbers in hexa- 
decimal representation. 



Hexadecimal 

Unlike binary, which requires a group of eight characters to represent an 8-bit 
value, hexadecimal notation allows us to represent an 8-bit value with a group of 
only two characters. These characters are not limited to and 1, but may include 
any digit from to 9, and any letter from "A" to "F." That gives us a set of sixteen 
characters, which is just right because we want to represent numbers in base 16. 
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(Hexadecimal stands for 16: hex for six, and decimal for ten. Six plus ten equals six- 
teen.) 

To represent a byte in hexadecimal notation, divide the 8-bit byte into two 4-bit 
units (sometimes called nybbles). Each of these 4-bit units has a value of from to 15 
(decimal), which we express with a single hexadecimal digit. A decimal 10 is a hexa- 
decimal $A. (The dollar sign indicates that a number is in hexadecimal representa- 
tion.) Table 2.2 gives the conversions of decimal to hexadecimal for decimal 
numbers thru 15. 



Table 2.2: Hexadecimal character set. 

Hexadecimal Character Decimal Equivalent 

$0 = 

$1 = 1 

$2 = 2 

$3 = 3 

$4 = 4 

$5 = 5 

$6 = 6 

$7 = 7 

$8 = 8 

$9 = 9 

$A = 10 

$B = 11 

$C = 12 

$D = 13 

$E = 14 

$F = 15 



Appendix Al, Hexadecimal Conversion Table, shows the hexadecimal 
representation of every number from to 255 decimal. 

In this book, object code, the only code that the machine can execute directly, 
will generally be presented in hexadecimal, and a thorough understanding of hexa- 
decimal will help you to interpret instructions and follow some of the 6502's actions. 
Even the sketchiest understanding of hexadecimal math, however, should be suffi- 
cient for you to follow and use the programs in this book. 
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ASCII Characters 

Instead of a number from to 255, an 8-bit byte can be used to represent an up- 
per or lower case letter of the alphabet, a punctuation mark, or a printer-control 
character such as a carriage return. A string of such bytes may represent a word, a 
message, or even a complete document. Appendix A2, ASCII Character Codes, 
gives the hexadecimal value for any ASCII character. ASCII stands for American 
Standard Code for /nf ormation Interchange, and is the closest thing the industry has 
to a standard set of character codes. If you want to store the letter "A" in some loca- 
tion in memory, you can see from Appendix A2 that you must store a $41 in that 
location. 

Whether a given byte is interpreted as a number, an ASCII character, or 
something else depends entirely on the program using that byte. Just as beauty is in 
the eye and mind of the beholder, so is the meaning of a given byte determined by 
the program that sees and uses it. 



The Instruction Cycle 

A microprocessor such as the 6502 can't do anything without being told. It only 
knows 151 instructions, called opcodes (operation codes). Each opcode is 1 byte 
long. An opcode may command the 6502 to take something from one register and to 
put it someplace in memory, to load some register with the contents of some loca- 
tion in memory, or to perform some other equally simple operation. See Appendix 
A4 for a list of opcodes for the 6502 microprocessor. 

What do 6502s do ali day? They work while programmers play. The 6502 gets 
an opcode, performs the specified operation, gets the next opcode, performs the 
specified operation, gets the next opcode, performs the... 

You get the picture. 

How does the 6502 know where to find the next opcode? The 6502 has a 16-bit 
register called the PC (program counter). The PC holds the address of some location 
in memory. When the 6502 starts its instruction cycle, it gets the opcode stored at 
the memory location specified by the PC. Then it performs the operation specified 
by that opcode. When it has executed that instruction, it makes the PC point to the 
next opcode and starts on a new instruction cycle by getting the opcode whose ad- 
dress is now in the PC. 

Figure 2.1 shows a flowchart for the instruction cycle of the 6502 
microprocessor. 

'That's it? That's all the 6502 does?" you ask. 

That's it. But with the right program in memory, we can make the 6502 dance. 
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Figure 2.1: The 6502 instruction cycle. 



Machine Language 

A machine-language program is nothing more than a series of machine- 
language instructions stored in memory. If the PC in the 6502 can be made to hold 
the address of the start of your program, then we say that the PC is pointing to your 
program. When the 6502 starts its instruction cycle, it will fetch the first opcode in 
your program, and then perform the operation specified by that opcode. At this 
point, we say that your program is running. 

Each machine-language instruction is stored in memory as a 1-byte opcode, 
which may be followed by 1 or 2 bytes of operand. Thus, a 6502 machine-language 
program might be "A9 05 20 02 04 A2 F5 60." 

Just a bunch of numbers I (Hexadecimal numbers, in this case.) But it is exactly 
these numbers that the machine understands; hence the term, machine language. 



Assemblers 

Machine language is easy to read — if you're a machine. But programmers are 
people. So programming tools called assemblers have been developed, which take 
more readable assembly-language source code as input and produce listings and ob- 
ject code as output. The listing is the assembler's output intended for a human 
reader. The object code is a series of 6502 machine-language instructions intended to 
be stored in memory and executed by the 6502. 
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For each chapter in this book that presents a program, there is an appendix at 
the back of the book containing an assembler listing and a hexdump of the same pro- 
gram. The assembler listing includes both source and object code, making it easy for 
you to read the program; the hexdump shows you what the object code for that pro- 
gram actually looks like in your computer's memory. Figure 2.2 shows how an 
assembler is used to produce an assembler listing for the programmer and object 
code for the processor. 
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Figure 2.2: From programmer to object code. The assembler takes source code as input and 
produces an assembler listing and object code as output. 



The programs in this book have all been produced on the OSI 6500 
Assembler/Editor, running under the OSI 65-D Disk Operating System, on an OSI 
C-IP machine with 24 K bytes of programmable memory and one 5-inch floppy 
disk. The object code, however, runs on any Commodore 64, or any VIC-20 with 
at least 8 K of expansion RAM. (Incidentally, the source code in each chapter of 
this book should fit into the workspace of a computer with much less than 24 K 
bytes of user memory, if you delete many of the comments. But then, of course, 
your listings will be a lot less readable.) 

But you don't write a listing; an assembler produces a listing. What you write is 
assembly-language source code. 



Source Code 

An assembly-language source program consists of one or more lines of 
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assembly-language source code. A line of assembly-language source code consists of 
up to four fields: 

LABEL MNEMONIC OPERAND COMMENT 

The mnemonic, required in all cases, is a group of three letters chosen to suggest 
the function of a given machine-language instruction. For example, the mnemonic 
IDA stands for LoaD Accumulator. LDX stands for LoaD X register. TXA means 
Transfer the X register to the Accumulator. 6502 mnemonics are not nearly as mean- 
ingful as BASIC commands, but they're a big improvement over the machine- 
language opcodes. See Appendix A3 for a list of 6502 mnemonics. 

Some operations require an operand field. For example, the operation load ac- 
cumulator requires an operand, because the line of source code must specify what 
you wish to load into the accumulator. 

The label and comment fields are optional. A label lets you operate on some 
location in memory by a name that you have assigned to it. Comments are not in- 
cluded in the object code that will be assembled from your program, but they make 
your source code and your listings much more meaningful to a human reader. When 
you write a program, even if no one but yourself will ever read it, try to choose your 
labels and comments so that someone else can understand the purpose of each part 
of the program. Such careful documentation will save you a lot of time weeks or 
months down the road, when you might otherwise reread your program and have 
no idea why you included some unlabeled, uncommented line of source code. 



Loading a Register 

Let's write a simple program to load a register with a number — say, to load the 
accumulator with the number "10." Since we want to load the accumulator, well use 
the LDA instruction. (If we wanted to load the X register, we would use the LDX in- 
struction, and if we wanted to load the Y register, we'd use LDY.) We know what 
mnemonic to write into our first line of source code. But a glance at Appendix A6, 
6502 Opcodes by Mnemonic and Addressing Mode, shows that LDA has many ad- 
dressing modes. What operand shall we write into this line of source code? 

We know that we want to load the accumulator with a "10," and not with any 
other number, so we can use the immediate addressing mode to load a "10" directly 
into the accumulator. We'll use a "#" sign to indicate the immediate mode: 



Example I 

LDA #10 
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Example 1 is a legitimate line of source code containing only two fields: a 
mnemonic and an operand. The mnemonic, LDA, means "load the accumulator." 
But load it with what? The operand tells us what to load into the accumulator. The 
"#" sign specifies that this operation is to take place in the immediate mode, which 
means we want to load the accumulator with a constant to be found in this line of 
source code, rather than with data or a variable to be found in some location in 
memory. Then the operand specifies the constant to be loaded into the accumulator, 
in this case "10." 



Constants 

A constant is any value that is known by the programmer and "hard-wired" in- 
to the code. A constant does not change during the execution of a program. If a 
value changes during the execution of a program, then it is a variable, and one or 
more memory locations must be allocated to hold the current value of each variable. 

There are several kinds of constants. Any number is a constant. The number 
"7," for example, is a constant: a seven now will still be a seven this afternoon. A 
character is another kind of constant: the letter "A" will still be the letter "A" tomor- 
row. But a variable, such as one called FUEL, will change during the course of a pro- 
gram (such as a lunar lander simulation), so it is not a constant. 

In Example 1, note that the "#" sign is the only punctuation in the operand field. 
In the absence of special punctuation marks (such as the dollar sign indicating a 
hexadecimal number and the apostrophe indicating an ASCII character representa- 
tion), any numbers given in this book are in decimal. 

What object code will be assembled from this line of source code? Let's hand- 
assemble it and see. Appendix A6 shows us that the opcode for load accumulator, 
immediate mode, is $A9. So the first byte of object code for this instruction will be 
$A9. The second byte must specify what the 6502 should load into the accumulator. 
We want to load register A with a decimal 10, which is $0A. So the object code 
assembled from Example 1 is: A9 0A. 

When these 2 bytes of object code are executed by the 6502, it will result in the 
accumulator holding a value of $0A, or decimal 10. In effect, we've just told a jug- 
gler: put a "10" in your right hand. 

What if we wanted to load the accumulator with the letter "M," rather than 
with a number? We'd still use LDA to load the accumulator, and we'd still use the 
immediate mode of addressing, specifying in the operand the constant to be loaded 
into the accumulator. Either of the following two lines of source code will work: 
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Example 2 

LDA #' M 

or 
LDA #$4D 



In each line of source code above, the mnemonic and the "#" sign tell us we're 
loading the accumulator in the immediate mode — ie: with a constant. The operand 
following the "#" sign specifies the constant. An apostrophe indicates that an ASCII 
character follows, whereas a "$" sign indicates that a hexadecimal number follows. 
Appendix A2 shows that an ASCII "M" = $4D; they are simply two representations 
of the same bit pattern. So the two lines of source code above are equivalent; they 
will both assemble into the same object code: A9 4D. 

Which of the two lines of source code is more readable? If a constant will be 
used in a program as an ASCII character, then represent it in your source code as an 
ASCII character. 

Storing the Register 

Now let's say we want to store the contents of the accumulator someplace in 
memory. Every location in memory has a unique address (just like houses do), rang- 
ing from $0000 to $FFFF. Suppose we decide to store the contents of the accumulator 
at memory location $020C. We could do it with the following line of source code: 



Example 3 

STA $020C 



Example 3 will assemble into these 3 bytes of machine language: 8D 0C 02. 

According to the Appendix A6, the 6502 opcode for "store accumulator, ab- 
solute mode" (STA) is $8D. 

When the 6502 fetches the opcode "8D," it knows that it must store the contents 
of the accumulator at the address specified by the next 2 bytes. This is why it is 
called absolute mode. Absolute mode is used when specifying an exact memory 
location in an instruction. 

In the example above, that address seems wrong. It looks like the machine- 
language operand is specifying address $0C02, because the bytes are in that order: 
"0C" followed by "02." But we want to operate an address $020C. Is something 
wrong here? 
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Low Byte First 

You and I might think something is wrong when the address $020C is written as 
an "OC" followed by an "02" but you and I are people. We don't think like the 6502. 
When you and I write a number, we tend to write the most significant digit first and 
the least significant digit last. But the 6502 doesn't work that way. When the 6502 in- 
terprets two sequential bytes as an address, the first byte must contain the less 
significant part of the address (the "low byte"), and the second byte must contain the 
more significant part of the address (the "high byte"). All addressing modes that re- 
quire a 2-byte operand require that the 2 bytes be in this order: less significant byte 
first, followed by the more significant byte. 

However, not all addressing modes require a 2-byte operand. 



Zero-Page Addressing 

Memory is divided into pages, where a page is a block of 256 contiguous ad- 
dresses. The page from $0000 to $00FF is called the zero page, because all addresses 
in this page have a high byte of zero. The zero-page addressing mode takes advan- 
tage of this fact. Source code assembled using the zero-page addressing mode re- 
quires only 1 byte in the operand, because the opcode specifies the zero page mode 
of addressing, and the high byte of the operand is unnecessary because it is 
understood to be zero. Thus, you can specify an address in the zero page by the ab- 
solute or by the zero-page addressing mode, but the zero-page mode will let you do 
it using one less byte. 

If you want to use some location in the zero page to hold a number, you might 
decide to use location $00F4. We could write: 



Example 4 

STA $00F4 

or 

STA $F4 

We could then assemble either line of source code using the absolute addressing 
mode: 8D F4 00. Or we could assemble either line of source code using the zero- 
page mode: 85 F4. 

The opcode "85" means "store accumulator, zero page." Where in the zero 
page? At location $F4 in the zero page, the same location whose absolute address is 
$00F4. 
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Symbolic Expressions 

Let's say you want to copy the 3 bytes at memory locations $0200, $0201, and 
$0202 to $0300, $0301, and $0302, respectively. We could write these lines of source 
code: 



Example 5 

LDA $0200 
STA $0300 
LDA $0201 
STA $0301 
LDA $0202 
STA $0302 



This alternately loads a byte into the accumulator, then stores the contents of the ac- 
cumulator into another byte in memory. Note that loading a register from a location 
in memory changes the register, but leaves the contents of the memory location un- 
changed. 

Or we could write the following code, which refers to addresses as symbolic ex- 
pressions: 



Example 6 



1 


ORIGIN = $0200 


2 


DEST 


= $0300 


3 


LDA 


ORIGIN 


4 


STA 


DEST 


5 


LDA 


ORIGIN + 1 


6 


STA 


DEST + 1 


7 


LDA 


ORIGIN + 2 


8 


STA 


DEST + 2 



In Example 6, lines 1 and 2 are assembler directives, which equate the labels 
"ORIGIN" and "DEST" with the addresses $0200 and $0300, respectively. Other 
lines of source code following these equates may then refer to these addresses by 
their labels, or refer to any address as a symbolic expression consisting of labels and, 
optionally, constants and arithmetic operators. The source code above will cause an 
assembler to generate exactly the same object code as the source code in Example 5, 
but Example 6, whose operands consist of symbolic expressions, is much more 
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readable than Example 5, whose operands are given in hexadecimal. 



Some Exercises 

1) Write the 6502 instructions necessary to load the accumulator with the value 
127, to load the X register with the letter "r," and to load the Y register with the con- 
tents of address $B092. 

2) Write the 6502 instructions necessary to copy the byte at address $0043 to the 
address $0092. 



INTRODUCTION TO ASSEMBLER 19 



Chapter 3: 

Loops and Subroutines 



Indexed Addressing 

Although readable, Example 6 is not very efficient, because it requires two lines 
of source code to move each byte. If we want to move 50 or 100 bytes must we then 
write 100 or 200 lines of source code? 

Indexed addressing comes in quite handily here. Instead of specifying the ab- 
solute or zero-page address on which an operation is to be performed, we can 
specify a base address and an index register. The 6502 will add the value of the 
specified index registers to the base address, thereby determining the address on 
which the operation is to be performed. Thus, if we want to move 9 bytes from an 
origin to a destination, we could do it in the following manner, using the indexed ad- 
dressing mode with X as the index register: 



Example 7 



ORIGIN = $0200 
DEST = $0300 



INIT LDX #0 Initialize X register to zero, so well start 

with the first byte in the block. 

GET LDA ORIGIN,X Get Xth byte in origin block. 

PUT STA DEST,X Put it into the Xth position in the 

destination block. 

ADJUST INX Adjust X for next byte by incrementing 

(adding 1) to the X register. 
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TEST CPX #9 Done 9 bytes yet? 

BRANCH BNE GET If not, go back and get next byte... 



We will use Example 7 in the following sections to introduce several new in- 
structions and addressing modes. Example 7 includes six lines of source code to 
move 9 contiguous bytes of data. If we tried to move 9 bytes of data with the tech- 
niques used in Examples 5 and 6, it would have taken eighteen lines of source code. 
So with indexed addressing, we've saved ourselves twelve lines of code. But how do 
these lines work? The lines are labeled so we can look at them one-by-one. 

The instruction labeled INIT loads the X register in the immediate mode with 
the value zero. After executing the line INIT, the 6502 has a value of zero in the X 
register. We don't know anything about what's in the other registers. 

GET loads the accumulator with the Xth byte above the address labeled 
ORIGIN. The first time the 6502 encounters this line, the X register will hold a value 
of zero, so the 6502 will load the accumulator with the zeroth byte above the address 
labeled ORIGIN (ie: it will load the accumulator with the contents of the memory 
location ORIGIN). 

In any line of source code, a comma in the operand indicates that the operation 
to be performed shall use an indexed addressing mode. A comma followed by an "X" 
indicates that the X register will be the index register for an instruction, whereas a 
comma followed by a "Y" indicates that the Y register will be the index for an in- 
struction. There are a number of indexed addressing modes. Two of these are ab- 
solute indexed and zero-page indexed. The line GET in Example 7 uses the absolute 
indexed addressing mode if ORIGIN is above the zero page; if ORIGIN is in the zero 
page then the line labeled GET can be assembled using the zero-page indexed ad- 
dressing mode. Zero-page indexed addressing, like zero-page addressing, requires 
only 1 byte in the operand. 

In zero-page indexed and in absolute indexed addressing, the operand field 
specifies a base address. The 6502 will operate on an address it determines by adding 
to the base address the value of the specified index register (X or Y). Only if the 
specified index register has a value of zero will the 6502 operate on the base address 
itself; in all other cases the 6502 will operate on some address higher in memory. 

So we've loaded the accumulator with the byte at ORIGIN. Now the 6502 
reaches the line labeled PUT in Example 7. This line tells the 6502 to store the ac- 
cumulator in the Xth byte above DEST. We haven't done anything to change X since 
the line INIT set it to zero, so X still holds a value of zero. Therefore, the 6502 will 
store the contents of the accumulator in the zeroth byte above DEST (ie: in DEST 
itself). 

At this point, we have succeeded in moving 1 byte from ORIGIN to DEST. X is 
still zero. Now comes the part that makes indexing worthwhile. The line labeled 
ADJUST is the shortest line of source code we've seen yet, consisting only of the 
mnemonic INX, which means "increment the X register." Since the X register was 
zero, when this line is executed the X register will be left holding a value of one. 
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Compare Register 

In Example 7, the line labeled TEST compares the value in the X register with 
the number "9." There are three compare instructions for the 6502, one for each 
register. CMP compares a value with the contents of the accumulator; CPX com- 
pares a value with the contents of the X register, and CPY compares a value with the 
contents of the Y register. 

We can use these compare instructions to compare any register with any value 
in memory, or, in the immediate mode, to compare any register with any constant. 
Such comparisons enable us to test for given conditions. For example, in Example 7, 
the line labeled TEST tests to see if we've moved 9 bytes yet. If the X register holds 
the value "9," then we have moved 9 bytes. (Walk through the loop yourself. When 
you have moved the zeroth through the eighth bytes above ORIGIN to the zeroth 
through the eighth positions above DEST, then you have moved 9 bytes.) 

A compare instruction never changes the contents of a register or of any loca- 
tion in memory. Thus, the X register does not change when the line labeled TEST is 
executed by the 6502. What may change, however, are some of the 6502's status 
flags. 



Status Flags 

In addition to the 6502's general-purpose registers (A, X, and Y), the 6502 con- 
tains a special register P, the processor status register. Individual bits in the pro- 
cessor status register are set or cleared each time the 6502 performs certain opera- 
tions. These bits, or hardware flags, are: 



c 


bitO: 


Carry Flag 


z 


bit 1: 


Zero Flag 


I 


bit 2: 


Interrupt Flag 


D 


bit 3: 


Decimal Flag 


B 


bit 4: 


Break Flag 




bit 5: 


Undefined 


V 


bit 6: 


Overflow Flag 


N 


bit 7: 


Negative Flag 



In this book, we will not discuss the use of all the flags in the processor status 
register. In this quick course in assembly-language programming, and in the soft- 
ware subsequently presented in this book, the three flags we will deal with are C, the 
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carry flag; Z, the zero flag; and N, the negative flag. 

A compare operation (CMP, CPX, or CPY) does not change the value of 
registers A, X, or Y, but it does affect the carry, zero, and negative flags. 

For example, if a register is compared with an equal value, the zero flag, Z, will 
be set; otherwise, Z will be cleared. If an instruction sets bit 7 of a register or an ad- 
dress, the negative flag of the status register will also be set; conversely, if an instruc- 
tion clears bit 7 of a register or an address, the negative flag will be cleared. Similar- 
ly, mathematical and logical operations set or clear the carry flag, which acts as a 
ninth bit in all arithmetic and logical operations. Table 3.1 summarizes the effects of 
a compare instruction on the status flags. 



Table 3.1: Status flags affected by compare instructions. Note that if you wish to test the 
status of the carry flag after a compare, you must set it (using the instruction SEC) before 
the compare. When testing the N flag, think of the inputs as signed 8-bit values. 

Carry Flag* Negative Flag Zero Flag 

Compare a register 

with an equal value and you set C, clear N, and set Z. 

Compare a register 

with a greater value and you clear C, clear N, and clear Z. 

Compare a register 

with a lesser value and you set C, clear N, and clear Z. 



Conditional Branching 

We can have a program take one action or another, depending on the state of a 
given flag. For example, two instructions, BEQ, (Branch on result EQual) and BNE 
(Branch on result Not Equal) cause the 6502 to branch, or jump to a new instruction, 
based on the state of the zero flag. An instruction which causes the 6502 to branch 
based on the state of a flag is called a conditional branch instruction. Other condi- 
tional branch instructions are based on the state of other status flags and are given in 
table 3.2. 



*If you wish to test the status of the carry flag after a compare, you must set it (using 
the instruction SEC) before the compare. 
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Table 3.2: Conditional branch instructions. 



Flag 


Instruction 


Description 


Op 


C 


BCC 


Branch if carry clear. 


90 


C 


BCS 


Branch if carry set. 


BO 


N 


BPL 


Branch if result positive. 


10 


N 


BMI 


Branch if result negative. 


30 


Z 


BEQ 


Branch if result equal. 








(Zero Flag set). 


F0 


z 


BNE 


Branch if result not equal. 








(Zero flag clear.) 


DO 


V 


BVC 


Branch if overflow flag clear. 


50 


V 


BVS 


Branch if overflow flag set. 


70 



The line labeled TEST in Example 7 compares the X register to the value "9;" 
this sets or clears the zero flag. The line labeled BRANCH then takes advantage of 
the state of the zero flag, by branching back to the line labeled GET if the result of 
that comparison was not equal. But if Y did equal "9," then the result of the com- 
parison would have been equal, and the 6502 would not branch back to GET. In- 
stead, the 6502 would execute the instruction following the line labeled BRANCH. 



Loops 

Example 7 shows a program loop. We cause the 6502 to perform a certain 
operation many times, by initializing and then incrementing a counter, and testing 
the counter each time through the loop to see if the job is done. 

There's a lot of power in loops. What would we have to add or change in 
Example 7 so that it moves not 9, but 90 bytes from one place to another? Happily, 
we wouldn't have to add anything, and we'd only have to change the operand in the 
line labeled TEST. Instead of comparing the X register with 9, we'd compare it with 
90. See Example 8. 



Example 8 

Move 90 bytes from origin to destination. 

ORIGIN = $0200 
DEST = $0300 
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INIT LDX #0 

GET LDA ORIGIN,X 

PUT STA DEST,X 

ADJUST INX 

TEST CPX #90 

BRANCH BNE GET 



Initialize X register to zero, so well start 
with the first byte in the block. 
Get Xth byte in origin block. 
Put it into the Xth position in the 
destination block. 
Adjust X for next byte. 
Done 90 bytes yet? 
If not, get next byte... 



Writing loops lets us write code that is not only compact, but easily tailored to 
meet the demands of a particular application. We couldn't do that, however, 
without indexing and branching. 

Loops can be tricky, though. What's wrong with this loop? 



Example 9 





ORIGIN = $0200 
DEST = $0300 


INIT 


LDX#0 


GET 
PUT 


LDA ORIGINX 
STA DEST,X 


TEST 
BRANCH 


CPX #9 
BNE GET 



Initialize X register to zero, so we'll start 

with the first byte in the block. 

Get Xth byte in origin block. 

Put it into the Xth position in the 

destination block. 

Done 9 bytes yet? 

If not, get next byte... 



Examine Example 9 very carefully. How does it differ from Example 71 It lacks 
the line labeled ADJUST, which increments the X register. What will happen when 
the 6502 executes the code in Example 9? It will initialize X to zero; it will get a byte 
from ORIGIN and move it to DEST. Then it will compare the contents of register X 
to 9. Register X won't equal 9, so it will branch back to GET, where it will do exactly 
what it did the first time through the loop, because X will still equal zero. Until the X 
register equals 9, the 6502 will branch back to GET. But nothing in this loop will 
ever change the value of X! So the 6502 will sit in this loop forever, getting a byte 
from ORIGIN and putting it in DEST and determining that the X register does not 
hold a 9... 

Now look at Example 10. Will it cause the 6502 to loop, and if so, will the 6502 
ever exit from the loop? Why, or why not? 
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Example 10 



INIT 

GET 
PUT 

ADJUST 

TEST 

BRANCH 



ORIGIN = $0200 
DEST = $0300 

LDX#0 

LDA ORIGIN,X 
STA DEST,X 

INX 
CPX#9 
BNE INIT 



Initialize X register to zero, so well start 
with the first byte in the block. 
Get Xth byte in origin block. 
Put it into the Xth position in the 
destination block. 
Adjust X for next byte. 
Done 9 bytes yet? 
If not, get next byte... 



Relative Addressing 

All conditional branch instructions use the relative addressing mode, and they 
are the only instructions to use this addressing mode. Like the zero page and zero- 
page indexed addressing mode, the relative addressing mode requires only a 1-byte 
operand. This operand specifies the relative location of the opcode to which the 6502 
will branch if the status register satisfies the condition required by the branch in- 
struction. A relative location of 04 means the 6502 should branch to an opcode 4 
bytes beyond the next opcode, if the given condition is satisfied. Otherwise, the 6502 
will proceed to the next opcode. 

Because the operand in a conditional branch instruction is only 1 byte, it is not 
possible for a conditional branch instruction to cause a branch more than 127 bytes 
forward or 128 bytes backward from the current value of the program counter. (A 
branch backward is indicated if the relative address specified is negative; forward if 
it's positive. A byte is negative if bit 7 is set. A byte is positive if bit 7 is clear. Thus, 
a value of 00 is considered positive.) However, an instruction called JMP allows the 
programmer to specify an unconditional branch to any location in memory. 
Therefore, if we have a short conditional branch followed by an unconditional 
jump, we may achieve in two instructions a conditional branch to any location in 
memory. 



Unconditional Branch 

Just as BASIC has its GOTO command, which causes an unconditional branch 
to a specified line in a BASIC program, the 6502 has its JMP instruction, which un- 
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conditionally branches to a specified address. A program may loop forever by 
JMP'ing back to its starting point. 

Look at Example 11. Unless a line of code within the loop causes the 6502 to 
branch to a location outside of the loop, the 6502 will sit in this loop forever. 



Example 1 1 

Endless Loop: 

START xxxxxxxxxx some 

xxxxxxxxxx instructions 

xxxxxxxxxx 

JMP START 



Indirect Addressing 

A JMP instruction may be written in either the absolute addressing mode or the 
indirect addressing mode. Absolute addressing is used in Example 11. The operand is 
the address to which the 6502 should jump. But in the indirect mode (which is 
always signified by parentheses in the operand field) the operand specifies the ad- 
dress of a pointer. The 6502 will jump to the address specified by the pointer; it will 
not jump to the pointer itself. 

The line of code "JMP (POINTR)" will cause the 6502 to jump to the address 
specified by the 2 bytes at POINTR and POINTR+1. Thus, if POINTR = $0600, 
and the 6502 executes the instruction "JMP (POINTR)" when memory location 
$0600 holds $00 and $0601 holds $20, then the 6502 will jump to address $2000. 
(Remember, addresses are always stored in memory with the low byte first.) 



How Branching Works 

Incidentally, all branches, whether relative, absolute, or indirect, work by 
operating on the contents of the PC (program counter). Before any branch instruc- 
tion is executed, the PC holds the address of the current opcode. A branch instruc- 
tion changes the PC, so that in the next instruction cycle the 6502 will fetch not the 
opcode following the current opcode, but the opcode at the location specified by the 
branch instruction. Then execution will continue normally from the new address. 



LOOPS AND SUBROUTINES 27 



Relocatability 

Often I implement short unconditional branches as: 

CLC 

BCC PLACE 

rather than as: 

JMP PLACE 



This is because the first method (relying as it does on relative rather than ab- 
solute addressing) will still work even if you relocate the code in which it is con- 
tained. Making your code relocatable will save you time and trouble when you try 
to move your programs around in memory and still want them to work. 

To relocate code containing the second example, you'd have to change the 
operand field because the absolute address of PLACE will have changed. To relocate 
code containing the first example, you wouldn't have to change a thing. 



Subroutines 

Perhaps the two most powerful instructions available to the assembly-language 
programmer are the JSR (Jump to Subroutine) and the RTS (ReTurn from 
Subroutine). These instructions (equivalent to GOSUB and RETURN in BASIC) 
enable us to organize chunks of code as building blocks called subroutines. 

Think of the subroutine as a job. Your computer can do more work for you if it 
knows how to do more jobs. Once you teach the 6502 how to do a given job, you 
won't have to tell it twice. Let's say you're writing a program in which the same 
operation must be performed at various times within a program. In every location 
within your program where the operation is required, you could include code to per- 
form that operation. On the other hand, you could write code in one place to per- 
form that operation, but write that code as a subroutine, and then call that 
subroutine whenever necessary from the main, or calling program. A call to a 
subroutine causes that routine to execute. When finished, it returns to the instruc- 
tion following the call in the main program. 

It only takes one line of code to call a subroutine. JSR SUB will call the 
subroutine located at the address labeled SUB. After the 6502 fetches and executes 
the JSR opcode, the next opcode it fetches will be at the address labeled SUB, in this 
example. So far it looks like an unconditional JMP. The 6502 will fetch and execute 
opcodes from the addresses following SUB, until it encounters an RTS instruction. 
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When the 6502 fetches an RTS instruction, it returns to its caller, jumping to the 
first opcode following the JSR instruction that called the subroutine. In effect, when 
a line of code calls a subroutine, the 6502 remembers where it is before it jumps to 
the new location. Then when it encounters an RTS instruction, it knows the address 
to which it should return because it remembers where it came from. It then continues 
to fetch opcodes from the point following the JSR instruction. Figure 3.1 illustrates 
this procedure. Note that the same subroutine may be called from many different 
points in the same program, and will always return to the opcode following the JSR 
instruction that called it. 



MAIN 



JUMP TO SUBROUTINE 



CALL JSR SUB- 



SUB 



LAST RTS 



kl _ WT ^ RETURN FROM SUBROUTINE 
NEXT ***** «* 



Figure 3.1: Jump to and return from subroutine. When the processor encounters a JSR (jump 
to subroutine) instruction, the next instruction executed is the first instruction of the 
subroutine. Here, the subroutine SUB is called from MAIN. The last instruction executed in a 
subroutine must be an RTS (return from subroutine) instruction. Here, the instruction at label 
LAST in subroutine SUB returns control to the next instruction following the call to the 
subroutine in the main program, the instruction labeled NEXT. The subroutine SUB can be 
called anywhere in the program MAIN when the particular function of SUB is needed. 



Subroutines allow you to structure your software. With structured software, 
you can make changes to many programs just by changing one subroutine. If, for 
example, all programs that print characters do so by calling a single-character-print 
subroutine, then any time you improve that subroutine you improve the printing 
behavior of all your programs. Changing something only once is a tremendous ad- 
vantage over having to change something in many different (usually undocumented) 
places within a piece of code. For these reasons, all of the software in this book uses 
subroutines. 
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Dummies 

A dummy subroutine is a subroutine consisting of nothing but an RTS instruc- 
tion. A line of code in a program can call a dummy subroutine and nothing will hap- 
pen; the 6502 will return immediately, with its registers unchanged. 

So why call a dummy subroutine? 

A call to a dummy subroutine provides a "hook," which you may use later to 
call a functional subroutine. While developing a program, I may have many lines of 
code that call dummy subroutines. Later, when I write the lower-level subroutines, 
it's easy to change my program so that it calls the functional subroutines rather than 
the dummy subroutines. Trying to insert a subroutine call to a program lacking such 
a hook can make you wish for a "memory shoehorn," which might let you squeeze 3 
extra bytes of code into the same address space. 



The Stack 

In addition to the addressing modes that enable the 6502 to access addressable 
memory, one addressing mode lets the 6502 access a 256-byte portion of memory 
called the stack. 

You may think of this stack as a stack of trays in a cafeteria. The only way a 
tray can be added is to place it on top of the existing stack. Similarly, the only way 
to get a tray from the stack is to remove one from the top. This is the LIFO (Last-In, 
First-Out) method. The last tray placed onto the stack must be the first tray re- 
moved. 

In our case, when an item is placed onto the top of the stack, it is called a push, 
and when an item is removed from the top of the stack, it is called a pop. The last 
item onto the stack is said to be at the top of the stack. 

For example, let's say we want to place two items onto the stack. (Each item has 
an 8-bit value, perhaps a number or an ASCII character; see figure 3.2a.) First we 
push item 1 onto the stack, as illustrated in figure 3.2b. All positions above item 1 on 
the stack are said to be empty, the item 1 is on the top of the stack. 

Now, push item 2 onto the stack (see figure 3.2c). What happens? Item 2 is now 
at the top of the stack, not item 1, although item 1 is still on the stack. 

Next, to get item 2 back off the stack, we do a pop (see figure 3. 2d). This makes 
item 1 the top of the stack again. Finally, another pop will remove item 1 from the 
stack, leaving the stack completely empty. Note that we had to pop item 2 from the 
stack before we could get to item 1 again. This is the LIFO principle. 

The instruction PHA lets you push the contents of the accumulator onto the 
stack. PLA lets you load the accumulator from the top of the stack (a pop). PHP lets 
you push the processor status register onto the stack. PLP lets you load the pro- 
cessor status register from the stack. 
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Figure 3.2: Pushing and popping the stack. 



The stack is a very convenient "pocket" to use when you want to store one or a 
few bytes temporarily without using an absolute place in memory. Subroutines may 
pass information to the calling routines by using the stack, but be careful: if a 
subroutine pushes data onto the stack, and fails to pop that data from the stack 
before executing an RTS instruction, then that subroutine will not return to its 
caller. This happens because when the 6502 executes a JSR instruction, it pushes the 
return address— that is, the address of the opcode following the JSR instruc- 
tion—onto the stack. A subroutine can return to its caller only because its return ad- 
dress is on the stack. If its return address is not at the top of the stack when the 
subroutine executes an RTS, it will not return to its caller. So a subroutine should 
always restore the stack before trying to return. 
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Chapter 4: 

Arithmetic and Logic 



Character Translation 

As demonstrated by Examples 7 and 8, indexed addressing is handy for 
performing a given operation (such as a move) on a contiguous group of bytes. But 
it also has another important application: table lookup. For example, let's say you 
and a friend have decided to write notes to one another using a substitution code. 
For every letter, number, and punctuation mark in a message, you've agreed to 
substitute a different character. A "W" will be replaced with a "Y;" a semicolon may 
be replaced with a "9," etc. 

You each have the same table showing you what to substitute for each character 
that may appear in a message. So you write a note to your friend in English, and 
then, using this table (which might be in the form of a Secret Agent Decoding Ring) 
you code, or encrypt, your note. You send the note in its encrypted form to your 
friend. Anyone else looking at the note would just see garbage, but your friend 
knows that a message can be found in it. So he gets his copy of the character transla- 
tion table (which may be in his Secret Agent Decoding Ring), and he translates the 
encrypted message back into English, looking up the characters that correspond to 
each character in the coded message. 

Children often enjoy coding and decoding messages in this way, but I find it 
about as much fun as filling out forms — which is no fun at all. Unfortunately, pro- 
gramming often involves character translation. Fortunately, I don't have to do it 
myself. I let my computer perform any necessary character translation by having it 
do what our two secret agents were doing: look up answers in a table. 
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Example 12 
Character Translation Subroutine 

XL ATE TAX Use character to be translated as an in- 

dex into the table. 

LDA TABLE,X Look up value in table. 

RTS Return to caller, bearing translated 

character in A and original character in 
X. 



Transfer Register 

In Example 12, the subroutine XLATE assumes when it is called that the ac- 
cumulator holds the byte to be translated. This byte might be a letter, a number, a 
punctuation mark, a control code, or a graphic character, but however you think of 
it, it's an 8-bit value. Line 1 of XLATE transfers that 8-bit value from the ac- 
cumulator to the X register, using the register-transfer instruction TAX. 

Register-transfer instructions operate only on registers; they do not affect ad- 
dressable memory. These instructions allow the contents of one register to be 
copied, or transferred, to another. The results of a transfer leave the source register 
unchanged, and the destination register holding the same value as the source 
register. The 6502's register-transfer instructions are: 



TAX Transfer accumulator to X register. 

TAY Transfer accumulator to Y register. 

TXA Transfer X register to accumulator. 

TYA Transfer Y register to accumulator. 



Register transfers affect flags N and Z. 

These instructions let you transfer A to X or Y, or to transfer X or Y to A. But 
how would you transfer X to Y, or Y to X? (Hint: it will take two lines of source 
code, each line an instruction from the list above.) 



Table Lookup 

In Example 12, line 2 of XLATE actually performs the character translation by 
looking up the desired data in a table. The label, TABLE, identifies the base address 
for a table that we've previously entered into memory. The indexed addressing 



ARITHMETIC AND LOGIC 33 

S 



mode allows line 2 to get the Xth byte above the base address (ie: to get the Xth byte 
of the table). When that line is executed, the table lookup is complete. The 6502 has 
looked up and now holds in the accumulator the Xth byte in the table. Now all the 
6502 must do is return to its caller, bearing the translated character in A and the 
original character in X. It accomplishes this with the RTS instruction. 

Now you can perform this character translation at any point in any program 
with just one line of source code: 

JSR XLATE 

Table lookup gives me great flexibility as a programmer. If a program uses a 
table lookup and for some reason I want the program to behave differently, I will 
probably only have to change some values in the table; it's unlikely that 111 have to 
change the table lookup code itself. If I've set up my table well, I might not have to 
change anything in the program except the data in the table. 

Table lookup is therefore a very fast and flexible means of performing data 
translation. But the cost of that speed and flexibility can be size. You might be able 
to solve any problem with the right tables in memory, but not if you can't afford the 
memory necessary to hold all those tables. It's great when a program can just look 
up the answers it needs, but sometimes a program will actually have to compute its 
answers. 



Arithmetic Operations 

The 6502 can perform the following 8-bit arithmetical operations: 

Shift 

Rotate 

Increment 

Decrement 

Add 

Subtract 



To understand how the 6502 operates on a byte, you must think of the bits in 
that byte. Even if the byte represents a number or a letter, don't think about what 
you can do to that number or letter. Think about what you can do to the pattern of 
bits in that byte. 

What can you do to those bits? 
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Shift 

You can shift the bits in a byte one position to the left or to the right. An ASL 
(Arithmetic Shift Left) operates on a byte in this manner: it moves each bit one bit to 
the left; it moves the leftmost bit (bit 7) into the carry flag, and it sets the rightmost 
bit (bit 0) to zero. See figure 4.1. 




Figure 4.1: Effect of the ASL instruction. 

For example, if the byte at location TMP has the following bit pattern: 

address TMP 1 1 1 10 

then after the instruction "ASL TMP" is executed, the data would look like: 

address TMP 10101100 

with the carry flag being set to the previous value of bit 7, in this case 0. If the same 
instruction is again executed, the data becomes: 

address TMP 01011000 

and the carry flag is set to 1. 

A LSR (Logical Shift Right) has just the opposite effect of the ASL. All bits are 
shifted to the right towards the carry flag, introducing zeroes through bit 7. See 
figure 4.2. 




Figure 4.2: Effect of the LSR instruction. 
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For example, if the byte at location TMP is as originally given above, then after 
the instruction "LSR TMP" is executed, the data at TMP becomes: 

address TMP 00101011 

with the carry flag being set to the previous value of bit 0, in this case zero. If the 
same instruction is executed again, the data becomes: 

address TMP 00010101 

with the carry flag set to 1. 

Because a number is represented in binary (each bit represents a successive 
power of two), some arithmetic operations are simple. To divide a byte by two, 
simply shift it right; to multiply a value in a byte by two, simply shift it left. 



Rotate 

You can also rotate the bits in a byte to the left or to the right through the carry 
flag. Unlike shifting, rotating a byte preserves all the information originally con- 
tained by a byte. 

Figure 4.3 shows how a ROL (rotate left) instruction works. For instance, let's 
say the data at address TMP is originally the same as in previous examples: 

address TMP 01010110 

and let's say that the carry flag is set (ie: it holds a 1). 

After a "ROL TMP" instruction is executed, the data becomes: 

address TMP 10101101 




Figure 4.3: Effect of the ROL instruction. 



and the carry bit is set to the previous value of bit 7, namely 1. Notice that bit in 
TMP now holds the original contents of the carry flag, and the carry flag holds the 
original contents of bit 7. Otherwise, everything looks just the same as in the ASL 
operation. After a second execution of the instruction "ROL TMP," the data 
becomes: 

address TMP 01011011 

with the carry flag set to 1. 

In a rotate left instruction, bit is always set from the carry flag. (In the ASL in- 
struction, bit is always set to 0.) If this had been an ASL instruction, what would 
the bit pattern at TMP be? 

Figure 4.4 shows how a ROR (rotate right) instruction works. It is similar to 
ROL, except that the carry flag is set from bit 0, and bit 7 is set from the carry flag. 



BITS 




Figure 4.4: Effect of the ROR instruction. 



Rotate a byte left nine times and you'll still have the original byte. The same is 
true if you rotate a byte right nine times. But shift a byte left nine times, or right nine 
times, and you know what you've got left? Nothing! 



Increment, Decrement 

You can increment or decrement a byte in three ways: using the INC and DEC 
instructions to operate on a byte in memory, using INX and DEX to operate on the X 
register, or using INY and DEY to operate on the Y register. None of these instruc- 
tions affects the carry flag. They do affect the zero flag: Z is set if the result of an in- 
crement or decrement is zero; otherwise Z is cleared. The negative flag is set if the 
result of an increment or decrement is a byte with bit 7 set; otherwise N is cleared. 

Note that if you increment a register or address holding $FF, it will hold zero. 
And similarly, if you decrement a register or address holding a zero, it will hold $FF. 
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You cannot increment or decrement the accumulator, but you can add or sub- 
tract a byte from the accumulator. 



Addition 

Example 13 shows how to add a byte from the location labeled NUMBER to the 
accumulator: 



Example 13 

CLC Clear the carry flag. 

ADC NUMBER Add the contents of location 

NUMBER to the accumulator. 



After these instructions are executed, the accumulator will hold the low 8 bits of 
the result of the addition. If, following the addition, the carry flag is set, then the 
result of the addition was greater than 255; if the carry flag is clear, then the result 
was less than 256, and, therefore, the accumulator is holding the full value of the 
result. Remember, the carry flag must be cleared before performing the ADC in- 
struction. 



Subtraction 

Subtraction is as easy as addition. To subtract a byte from the accumulator, 
first set the carry flag (using the SEC instruction) and then subtract from the ac- 
cumulator a constant or the contents of some address, using the instruction SBC 
(subtract with carry): 



SEC Set the carry flag. 

SBC OPERND Subtract from accumulator the value of 
OPERND. 



If the operand is greater than the initial value of the accumulator, the subtract 
operation will clear the carry flag; otherwise the carry flag will remain set. In either 
case, the accumulator will bear the 8-bit result. 

Thus, you clear the carry flag before adding and set the carry flag before sub- 
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tracting. If the carry flag doesn't change state, then the accumulator bears the entire 
result. But if the addition or subtraction changes the state of the carry flag, then 
your result is greater then 255 (for an addition) or less than zero (for a subtraction). 



Decimal Mode 

The processor status register includes a bit called the decimal flag. If the decimal 
flag is set, then the 6502 will perform addition and subtraction in decimal mode. If 
the decimal flag is clear, then the 6502 will perform addition and subtraction in 
binary mode. Decimal mode means the bytes are treated as BCD (Binary Coded 
Decimal), meaning that the low 4 bits of a byte represent a value of thru 9, and the 
high 4 bits of the byte represent a value of thru 9. Neither nybble (4 bits) may con- 
tain a value of A-F. So, each nybble represents a decimal digit. 

The instructions SED and CLD set the decimal flag and clear it, respectively. 
Unless you'll be operating with figures that represent dollars and cents, you won't 
need to use the decimal mode. All software in this book assumes that the decimal 
mode is not used. 

Decimal 255 is the biggest value that can be represented by a binary-coded byte, 
but decimal 99 is the biggest value that can be represented by a byte using Binary 
Coded Decimal. 



Logical Operations 

What if you want to set, clear, or change the state of one or more bits in a byte 
without affecting the other bits in that byte? Input and output operations often de- 
mand such "bit-twiddling," which can be performed by the 6502's logical operations 
ORA, AND, and XOR. 



Setting Bits 

The ORA instruction lets you set one or more bits in the accumulator without 
affecting the state of the other bits. ORA logically OR's the accumulator with a 
specified byte, or mask, setting hit n in the accumulator if bit n in the accumulator is 
initially set or if bit n in the mask is set, or if both of these bits are set. A logical OR 
will leave bit n of the accumulator clear only if bit n is initially clear in both the ac- 
cumulator and the mask. Table 4.1 shows a truth table for the logical operator OR. 
A truth table gives all possible combinations of 2 bits that can be operated upon (in 
this case, ORed) and the results of these combinations. 
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Table 4.1: Truth table for the logical OR operand. 

Bit 1 Bit 2 Result 

OR 

OR 1 1 

1 OR = 1 
1 OR 1 1 



For example, suppose we executed the instruction "ORA #$80." Here the mask 
is $80, or the bit pattern 10000000. This instruction would therefore set bit 7 of the 
accumulator while leaving all other bits unchanged. So, if the accumulator had a 
value of 00010010 before the above instruction was executed, it would have the 
value of 10010010 afterwards. 

Another example would be "ORA #3." Since a decimal 3 becomes 00000011 
when converted to an 8-bit binary mask, the above instruction would set bits and 1 
in the accumulator, leaving bits 2 thru 7 unchanged. 

How would you set the high 4 bits in the accumulator? The low 4 bits? 



Clearing Bits 

You can clear one or more bits in the accumulator without affecting the state of 
the other bits through the use of the AND instruction. AND performs a logical AND 
on the accumulator and the mask specified by the operand. AND will set bit n of the 
accumulator only if bit n of the accumulator is set initially and bit n is set in the 
mask. If bit n is initially clear in the accumulator or if bit n is clear in the mask, then 
AND will clear bit n in the accumulator. Table 4.2 gives the truth table for the 
logical AND operation. 



Table 4.2: The truth table for the logical AND. 

Bit 1 Bit 2 Result 

AND 0=0 

AND 1=0 

1 AND 0=0 
1 AND 1=1 
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For instance, the line of source code "AND #1" will clear all bits except bit in 
the accumulator; bit will remain unchanged. "AND #$F0" will clear the low 4 bits 
of the accumulator, leaving the high 4 bits unchanged. Select the right mask, and 
you can clear any bit or combination of bits in the accumulator without affecting the 
other bits in the accumulator. 



Toggle Bits 

The exclusive OR operation, XOR, lets you "flip," or toggle, one or more bits in 
the accumulator (ie: change the state of one or more bits without affecting the state 
of other bits). XOR will set bit n of the accumulator if bit n is set in the accumulator 
but not in the mask, or if bit n is set in the mask but not in the accumulator. If bit n 
has the same state in both the accumulator and in the mask, then XOR will clear bit 
n in the accumulator. Table 4.3 shows the truth table for this operation. 



Table 4.3: The truth table for the exclusive OR (XOR). 

Bit 1 Bit 2 Result 

XOR 0=0 

XOR 1=1 

1 XOR 0=1 
1 XOR 1=0 



To toggle bit n in the accumulator, simply XOR the accumulator with a mask 
which has bit n set but all other bits clear. Bit n will change state in the accumulator, 
but all other bits in the accumulator will remain unchanged. 

The logical operators, combined with the 6502's relative branch instructions, 
make it possible for a program to take one action or another depending on the state 
of a given bit in memory. Let's say you want a piece of code that will take one action 
(Action A) if a byte, called FLAG, has bit 6 set; yet take another action (Action B) if 
that bit is clear. The code of Example 14 shows one way to ignore all other bits in 
FLAG, and still preserve FLAG. 



Example 14 

LDA FLAG Get flag byte. 

AND #$40 Clear all bits but bit 6. 

BEQ PLAN.B 
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PLAN.A xxxxx Take Action A, since bit 6 was set 

in flag. 



PLAN.B Take Action B, since bit 6 was 

clear in flag. 

What good are flags? Let me give an example. The flag on a rural mailbox may 
be either raised or lowered to indicate that mail is or is not awaiting pickup. Raising 
and lowering those flags requires a little bit of effort (no pun intended), but it 
enables the mail carrier to complete the route much more quickly than would be 
possible if every mailbox had to be checked every time around. Presumably, this 
provides better service for everyone on the route. 

That mail carrier's routine is a very sophisticated piece of programming. If we 
think of the mail carrier as a person following a program, then we can see some of 
the power and flexibility that come from the use of flags. 

The mail carrier's program has two parts: What must be done at the post office 
and What must be done on the route. At the post office, the mail carrier sorts the 
mail, bundles letters for the same address and puts the bundles for a given route into 
a mail sack in some order. This sorting at the post office means the mail carrier on 
the route can make his or her rounds more quickly, because no further sorting and 
searching is required. (We won't go into sorting and searching in this book; that's a 
volume in itself. For a helpful reference see Donald E Knuth's Searching and 
Sorting.) 

Now comes the second part of the mail carrier's program: What must be done 
on the route. The mail carrier picks up the mail sack and leaves the post office. Driv- 
ing down country roads, the mail carrier sees a mailbox ahead. Do I have any mail 
for the people at this address? If so, the mail carrier's mental program says, I'll slow 
down and deliver it. But what if I don't have any mail now for these people? Do I 
just keep driving? Do I go to the next address? 

Not if I want to keep my job. 

The mail carrier looks a little more closely at the mailbox. Is the flag up or 
down? If it's down, I can just drive by, but if the flag is up I must stop and pick up 
the outgoing mail. 

A flag is just a single bit of information, but by interpreting and responding to 
the state of flags, even a simple program can respond to many changing conditions. 
If your computer has 8,000 bytes of programmable memory, that means it has 
64,000 bits of memory. Conceivably, you could use most of those bits as flags, 
perhaps simulating the patterns of outgoing mail in a community of more than 
50,000 households. 

But you didn't buy a computer to play post office. And you know enough now 
to follow the programs presented in the following chapters. These programs will in- 
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elude examples of all the instructions and programming techniques presented in this 
very fast course in assembly-language programming. The programs in the following 
chapters will also give you some tools to use in developing your own programs. 

(Incidentally, there is one 6502 instruction which doesn't do anything at all. The 
instruction NOP performs NO operation. Why would you want to perform no 
operation? Occasionally, it's handy to replace an unwanted instruction with a dum- 
my instruction. When you want to disable some code, simply replace the unwanted 
code with NOP's. A NOP is represented in memory by $EA.) 
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Chapter 5: 



Screen Utilities 



Now let's consider how to display something on the video screen. On the 
Commodore 64 and VIC-20 computers, the video-display circuitry scans a particu- 
lar bank of memory, called the display memory. Every address in the display mem- 
ory represents, or is mapped to, a different screen location (hence the term 
memory-mapped display). For each character in the display memory, the display 
circuitry puts a particular image, or graphic, on the screen (hence the term charac- 
ter graphics) . To display a character in a given screen location, you need only store 
that character in the one address within a display memory that corresponds to the 
desired screen location. 

To know which address corresponds to a given screen location you must con- 
sult a display-memory map. Appendices Bl and B2 describe how display memory 
is mapped on the Commodore 64 and VIC-20 computers. Note that two different 
systems may have two different addresses for the same screen location. Also note 
how burdensome it can be to look up the addresses of even a few screen locations 
just to display a few characters on the video screen. 

Rather than address the screen in an absolute manner, we'd like to be able to do 
so indirectly. Ideally, we'd like a software-controlled "hand" that we can move 
about the screen. Then we could pick up the character under the hand, or place a 
new character under the hand, without being concerned with the absolute address of 
the screen location under the hand at the moment. Such a hand can be implemented 
quite easily as a zero-page pointer. 



Pointers 

A pointer is just a pair of contiguous bytes in memory. Since 1 byte contains 8 
bits, a pointer contains 16 bits, which means a pointer can specify any one of more 
than 65,000 (specifically: 2 16 ) different addresses. 

A pointer can specify, or point to, only one address at a time. The low byte of a 
pointer contains the 8 LSB (least-significant bits) of the address it specifies, and the 
high byte of the pointer contains the 8 MSB (most-significant bits) of the address it 

specifies. 

Let's say we want a pointer at location $1000. We must allocate 2 bytes for the 
pointer, which means it will occupy the bytes at $1000 and $1001. $1000 will hold 
the low byte, and $1001 will hold the high byte. If we want this pointer to specify 
address $ABCD, then we may set it as follows: 

POINTR = $1000 This assembler directive equates the label 

POINTR with the value $1000. (It's POINTR 
and not POINTER only because the assembler 
used in preparing this book chokes on labels 
longer than six characters — a common, if 
arbitrary, limitation.) 

LDA#$CD A9 CD Set the 

STA POINTR 8D 00 10 low byte. 

LDA#$AB A9 AB Set the 

STAPOINTR+1 8D 01 10 high byte. 



Now POINTR points to $ABCD. 

Although a pointer may be anywhere in memory, it becomes especially power- 
ful when it's in the zero page (the address space from 0000 to $00FF). The 6502's in- 
direct addressing modes allow a zero-page pointer to specify the address on which 
certain operations may be performed. A zero-page pointer must be located in the 
zero page, but it may point to any location in memory. For example, a zero-page 
pointer may be used to specify the address in which data will be loaded or stored. 
Since display memory looks like any other random-access memory to the processor, 
we may implement our television hand as a zero-page pointer. 



TV.PTR 

We want a zero-page pointer that can point to particular screen locations. Let's 
call it TV.POINTER, or TV.PTR for short. Whenever we examine or modify the 
screen, we'll do it through the TV.PTR. 
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Because the Commodore 64 and VIC-20 don't use zero page bytes $00FB- 
$00FE, well use $00FB and $00FC for TV.PTR. We can do that with the following 
assembler directive: 

TV.PTR = $FB 



TV.PUT 

The TV.PTR always specifies the current location on the screen. Thus, to 
display a graphic at the current location on the screen, we need only load the ac- 
cumulator with the 8-bit code for that graphic and then execute the following two 
lines of code: 



LDY#0 AO 00 

STA (TV.PTR),Y 91 FB 



The two lines of above code are sufficient to display a given graphic in the cur- 
rent screen location. But what if you want to display a given character in the current 
screen location? The ASCII code for a character is not necessarily the same as your 
system's display code for that character's graphic. To display an "A" in the current 
screen location, we cannot simply load the accumulator with an ASCII "A" (which 
is $41) and then execute the two lines of above code, because the graphic "A" has a 
different display code on your system. Instead of displaying an "A," we would dis- 
play something else. Perhaps to make life difficult for assembly-language program- 
mers, the Commodore computers do not provide a one-to-one correspondence 
between any character's ASCII code and that character's graphic code. 

How then can we display a given ASCII character in the current screen loca- 
tion? We can do it by assuming that there exists a subroutine called FIXCHR, which 
will "fix" any given ASCII code, by translating it to its corresponding graphic or 
display code. FIXCHR will be different for each system, so we won't go into its 
details here (see the appendix pertaining to your computer for a description and 
listing of FIXCHR for your system). At this point we will assume only that FIXCHR 
exists, and that if we call it with an ASCII character in the accumulator, it will return 
with the corresponding display code in the accumulator. 

We already know how to display a given graphic in the current screen location. 
With FIXCHR we now know how to display any given ASCII character in the cur- 
rent screen location. And since displaying any given ASCII character in the current 
screen location is something we're likely to do more than once, let's make it a 
subroutine. We'll call that subroutine TV.PUT since it will let us put a given ASCII 
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character up on the TV screen: 



TV.PUT JSR FIXCHR Convert ASCII character to your 

system's display code for that character. 
LDY #0 Put that graphic in the 

STA (TV.PTR), Y current screen location. 

RTS Return to caller. 



The Screen Location 

However, these examples of modifying and examining screen locations through 
the TV.PTR will work only if the TV.PTR is actually pointing at a screen location. 
Therefore, before executing code such as the examples given above, we must be sure 
the TV.PTR points to a screen location. 

There are several ways to do this. If you want to write code that will run on 
only one machine (or on several machines whose display memory is mapped the 
same way), then you can use the immediate mode to set the TV.PTR to a given 
address on the screen. Let's say you want to set the TV.PTR to point to the third col- 
umn of the fourth row (counting right and down from an origin in the upper-left cor- 
ner). If you have VIC-20 with 8 K of expansion RAM, then you can consult your 
system's documentation and determine that address $1044 in display memory cor- 
responds to your desired screen location. $10 is the high byte of this screen loca- 
tion; $44 is the low byte of this screen location. Thus, you can set TV.PTR with the 
following lines of code: 



LDA #$44 


A9 


44 


Set 


STA TV.PTR 


85 


FB 


low byte. 


LDA #$10 


A9 


10 


Set 


STA TV.PTR+1 


85 


FC 


high byte 



This code is fast and relocatable. But it's not very convenient to have to look up 
a display address every time we write code that displays something on the screen. It 
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would be much more convenient if we could address the screen as a series of X and Y 
coordinates. Why not have a subroutine that sets the TV.PTR for us, provided we 
supply it with the desired X and Y coordinates? 



TVTOXY 



TVTOXY is a subroutine that sets the value of the TV.PTR to the display ad- 
dress whose X and Y coordinates are given by the X and Y registers. (Note that we 
count the columns and rows from zero.) To make the TV.PTR point to the third col- 
umn from the left in the fifth row from the top, a calling program need only include 
the following code: 



LDY # 2 The leftmost column is column zero, so the third column is 

column two. 
LDY #4 The topmost row is row zero, so the fifth row is row four. 

JSR TVTOXY Set TV.PTR to screen location whose X and Y coordinates are 

given by the X and Y registers. 



How will TVTOXY work? We could have TVTOXY do just what we were 
doing: look up the desired address in a table. A computer can look up data in a table 
very quickly, but the speed may not be worth it if the table requires a lot of memory. 
If we don't mind waiting a little longer for TVTOXY to do its job, we can have 
TVTOXY calculate the desired value of TV.PTR, rather than look it up in a table. 
But how can you calculate the address of a given X and Y location on the screen? 

You can't do it without data. But you don't need a large amount of data to 
determine the address of a given X, Y location in screen memory; you need only have 
access to the following facts: 



HOME The address of the character in the upper-left corner of the 

screen (ie: the lowest address in screen memory). 

ROWINC ROW INCrement: the address difference from one row to the 

next. 
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Knowing the values of HOME and ROWINC for a given system, you can 
calculate the address corresponding to any X,Y location: 



HOME Address of character in upper-left corner 

+ X Register + X coordinate 

+ (Y Register) X ROWINC + (Y coordinate) X ROWINC 



TV.PTR Address of screen location at column X, row Y. 



Run through this calculation for several screen locations and compare the 
results with the addresses you look up in the display-memory map for your system. 
(Remember that we count columns and rows from zero, not from one.) Now if 
TVTOXY can run through this calculation for us, we'll never have to look at a 
display-memory map again; we can write all our display code in terms of cartesian 
coordinates. 

But we shouldn't be satisfied with TVTOXY if it only runs through the above 
calculation. After all, what happens if TVTOXY is called and the Y register holds a 
very large number? If the Y register is greater than the number of rows on the screen, 
then the above calculation will set the TV.PTR to an address outside of display 
memory. We don't want that. Maybe a calling program will have a bug and call 
TVTOXY with an illegal value in X or in Y. If TVTOXY doesn't catch the error, the 
calling program may end up storing characters in memory that is not display 
memory. It might end up over-writing part of itself, which would almost certainly 
invite long and arduous debugging. 

I hate debugging. I know I'm going to make mistakes, but I'd like my software 
to catch at least some bugs before they run amuck. So let's have TVTOXY check the 
legality of X and Y before blindly calculating the value of TV.PTR. 

How can TVTOXY check the legality of X and Y? How big can X or Y get 
before it's too big? We need some more data: 



TVCOLS The number of columns on the display screen, counting 

from zero. 
TVROWS The number of rows on the display screen, counting from 

zero. 



Now TVTOXY requires the following four facts about the host computer: 
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HOME 
ROWINC 
TVROWS 
TVCOLS 



If we store these facts about the host system in a particular block of memory, 
then TVTOXY need only consult that block of memory to learn all it needs to know 
about the screen. TVTOXY can then work as follows: 



TVTOXY 



TVTOXY 



X.OK 



Y.OK 



SEC 

CPX TVCOLS 

BCC X.OK 

LDX TVCOLS 



SEC 

CPY TVROWS 

BCC Y.OK 

LDY TVROWS 



LDA HOME 
STA TV.PTR 
LDA HOME +1 
STA TV.PTR +1 

TXA 

CLC 

ADC TV.PTR 

BCC COLSET 

INC TV.PTR+1 

CLC 



Is X out of range? 

If not, leave it alone. 
If X is out of range, give 
it its maximum legal value. 
Now X is legal. 

Is Y out of range? 

If not, leave it alone. 
If Y is out of range, give 
it its maximum legal value. 
Now Y is legal. 

Set TV.PTR = HOME. 



Add X to TV.PTR. 



COLSET 
LOOP 



CPY#0 

BEQ EXIT 

CLC 

ADC ROWINC 

BCC NEXT 



Add Y*ROWINC to TV.PTR. 



so 



NEXT 
EXIT 



INC TV.PTR+1 

DEY 

BNE LOOP 

STA TV.PTR 

RTS 



Return to caller. 



TVDOWN, TVSKIP, TVPLUS 

Using TVTOXY, we can set TV.PTR to a screen location with any desired X,Y 
coordinates. But it would also be convenient to be able to modify TV.PTR relative 
to its current value. For example, after placing a character on the screen, We might 
want to make TV.PTR point to the next screen location to the right, or perhaps to 
the screen location directly below the current screen location. We might even want 
to make TV.PTR skip over several screen locations to make it point to "the nth 
screen location from here," where "here" is the current screen location. For these oc- 
casions, the subroutines TVDOWN, TVSKIP, and TVPLUS come in handy. 



TVDOWN 


LDA ROWINC 

CLC 

BCC TVPLUS 


TVSKIP 


LDA#1 


TVPLUS 


CLC 



NEXT 



TVDOWN, TVSKIP, TVPLUS 

Move TV.PTR down by one row. 

Unconditionally branch. 

Skip one screen location by increment- 
ing TV.PTR. 



ADC TV.PTR 
BCC NEXT 
INC TV.PTR -HI 

STA TV.PTR 

RTS 



Add the contents of the accumulator 
to the two zero-page bytes 
comprising the TV.PTR. 



Return to caller. 



Note that the routines TVDOWN and TVSKIP make use of the routine 
TVPLUS, which assumes that the accumulator has been set to the number of loca- 
tions to be skipped. For TVDOWN and TVSKIP, the accumulator is set to 
ROWINC and 1, respectively. 

Right now TVPLUS might not seem long enough to be worth making into a 
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subroutine. Any program that calls TVPLUS could perform the addition itself, at a 
cost of only a few bytes, and at a saving of several machine cycles in the process. 
However, we may make TVPLUS more sophisticated later on. 

For example, we could enhance TVPLUS so it performs error checking auto- 
matically, to ensure that TV.PTR will never point to an address outside of screen 
memory. Such error checking would be very burdensome for every calling program 
to perform, but if and when we insert it into TVPLUS, every caller will auto- 
matically get the benefit of that modification. 



VUCHAR 

With TV.PUT we can display an ASCII character in the current screen location, 
and with TVSKIP we can advance to the next screen location. So why not combine 
the two, creating a subroutine that displays in the current screen location the graphic 
for a given ASCII character, and then automatically advances TV.PTR so it points 
to the next screen location? This would make it easy for a calling program to display 
a string of characters in successive screen positions. Since this subroutine will let the 
user view a character, let's call it VUCHAR: 



VUCHAR JSR TV.PUT Display, in the current screen location, 

the graphic for the character whose 
ASCII code is in the accumulator. 
JSR TVSKIP Advance to the next screen location. 

RTS 



We could even squeeze VUCHAR into the code presented above for 
TVDOWN, TVSKIP, and TVPLUS, by inserting one new line of source code im- 
mediately above TVSKIP. (See Appendix Cl, the assembler listing for the Screen 
Utilities, which also includes some error checking within TVPLUS.) 



VUBYTE 

With the screen utilities presented thus far, we can display a character on the 
screen in the current location, but we don't have a utility to display a byte in hexa- 
decimal representation. Let's make one. 

Well call this utility VUBYTE, since it will let the user view a given byte. With 
VUBYTE, a calling program must take only three steps to display a byte in hexa- 
decimal representation anywhere on the screen: 
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1) Set a zero-page pointer (TV.PTR) to point to the screen location where the 
byte should be displayed; 2) load the accumulator with the byte to be displayed; and 
then 3) call VUBYTE. 

Figure 5.1 shows how VUBYTE will work. 



C START J 






WHAT HEXADECIMAL DIGIT 
CORRESPONDS TO THE 
HIGH FOUR BITS 
OF THE BYTE? 






DETERMINE THE ASCII 
CHARACTER FOR THAT 
HEXADECIMAL DIGIT 






PLACE THAT ASCII 
CHARACTER ON 
SCREEN AT THE 
CURRENT LOCATION 






WHAT HEXADECIMAL DIGIT 
CORRESPONDS TO THE LOW 
FOUR BITS OF THE BYTE? 






DETERMINE THE ASCII 
CHARACTER FOR THAT 
HEXADECIMAL DIGIT 






PLACE THAT ASCII 
CHARACTER IN NEXT 
SCREEN LOCATION 






SET TV. PTR TO POINT TO 
NEXT SCREEN LOCATION 






f RETURN J 



Figure 5.1: Flowchart of the routine VUBYTE, which displays a byte in hexadecimal represen- 
tation on the video screen. 
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VUBYTE will display the given byte as two ASCII characters in the current 
position on the screen, and when VUBYTE returns, TV.PTR will be pointing to the 
screen location immediately following the two screen locations occupied by the dis- 
played characters. 

VUBYTE need only determine the ASCII character for the hexadecimal value of 
the 4 MSB (most-significant bits), store that ASCII character in the screen location 
pointed to by TV.PTR, then display the ASCII character for the hexadecimal value 
of the accumulator's 4 LSB (least-significant bits) in the next screen location. See 
figure 5.1 for a flowchart outlining this. 

VUBYTE seems to be asking for a utility subroutine to return the ASCII char- 
acter for a given 4-bit value. Let's call this subroutine ASCII. ASCII will return the 
ASCII character for the hexadecimal value represented by the 4 least-significant bits 
in the accumulator. It will ignore the 4 most-significant bits in the accumulator. 

If we assume that ASCII exists, then we can write VUBYTE: 



VUBYTE 



PHA 



VUBYTE 

Save accumulator. 



LSRA 
LSRA 
LSRA 
LSRA 



Move 4 MSB 
into positions 
occupied by 
4 LSB. 



JSR ASCII 



Determine ASCII for accumulator's 4 
LSB (which were its 4 MSB). 



JSR VUCHAR Display the ASCII character in the cur- 

rent screen location and advance to next 
screen location. 



PLA 

JSR ASCII 



Restore original value of accumulator. 

Determine ASCII for accumulator's 4 
LSB (which were its 4 LSB). 



JSR VUCHAR Display this ASCII character just to the 

right of the other ASCII character and 
advance to next screen location. 



RTS 



Return to caller. 
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Of course, ASCII doesn't exist yet. So let's write it, and then VUBYTE should 
be complete. 



ASCII 



DECIML 



AND #$0F 

CMP #$0A 
BMI DECIML 
ADC #6 



ADC #$30 



RTS 



ASCII 

Clear the 4 MSB in accumulator. 

Is accumulator greater than 9? 

If so, it must be A thru F. Add $36 to 
accumulator to convert it to correspond- 
ing ASCII character. (We'll add $36 by 
adding $6 and then adding $30.) 

If accumulator is thru 9, add $30 to it 
to convert it to corresponding ASCII 
character. 

Return to caller, bearing the ASCII char- 
acter corresponding to the hexadecimal 
value initially in the 4 LSB of the ac- 
cumulator. 



TVHOME, CENTER 

Now we can display a character or a byte at the current screen location, and we 
can set the current screen location to any given X,Y coordinates or modify it relative 
to its current value. It would also be handy if we could set the TV.PTR to certain 
fixed locations: locations that more than one calling program might need as points 
or origin. For example, a calling program might need to set the TV.PTR to the 
HOME location (position 0,0), or to the CENTER of the screen: 



TVHOME, CENTER 

TVHOME LDX #0 Set TV.PTR to the leftmost column 

LDY #0 of the top row 

JSR TVTOXY of the screen. 

RTS Then return to caller. 



SCREEN UTILITIES 55 



CENTER 



LDA TVROWS 

LSRA 

TAY 



LDA TVCOLS 

LSRA 

TAX 



JSR TVTOXY 
RTS 



Load A with total rows. 

Divide it by two. 

Y now holds the number of the central 

row on the screen. 

Load A with total columns. 

Divide it by two. 

X now holds the number of the central 

column on the screen. 

Now X and Y registers hold X, Y coor- 
dinates of center of screen. 

Set the TV.PTR to X,Y coordinates. 
Return to caller. 



TVPUSH, TV.POP 

The screen utilities presented thus far enable us to set or modify the current 
position on the screen. We might also want to save the current position on the screen 
and then restore that position later. We can do this by pushing TV.PTR onto the 
stack and then pulling it from the stack: 



TVPUSH 



PLA 

TAX 
PLA 
TAY 



LDA TV.PTR +1 

PHA 

LDA TV.PTR 

PHA 

TYA 
PHA 
TXA 
PHA 

RTS 



TVPUSH 

Pull return address from stack. 

Save it in X... 

...and in Y. 

Get TV.PTR 
and save 
it on 
the stack. 



Place return 
address back... 

... on stack. 

Then return to caller. 
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TVPOP 

TV.POP 



PLA 


Pull return address from 


TAX 


Save it in X... 


PLA 




TAY 


...and in Y. 


PLA 


Restore... 


STA TV.PTR 


...TV.PTR 


PLA 


...from 


STA TV.PTR+1 


...stack. 


TYA 


Place return 


PHA 


address back... 


TXA 




PHA 


... on stack. 


RTS 


Then return to caller. 



Now a calling program can save its current screen position with one line of 
source code: "JSR TVPUSH." That calling program can then modify TV.PTR and 
later restore it to its saved value with one line of source code: "JSR TV.POP." 



CLEAR SCREEN 

Now that we can set TV.PTR to any X,Y location on the screen, and display 
any byte or character in the current location, let's write some code to clear all or part 
of the screen. One subroutine, CLR.TV, will clear all of the video screen for us while 
preserving the zero page. A second routine, CLR.XY, will start from the current 
screen location and clear a rectangle, whose X,Y dimensions are given by the X,Y 
registers. Thus, a calling program can call CLR.TV to clear the whole screen; or a 
calling program can clear any rectangular portion of the screen, leaving the rest of 
the screen unchanged, just by making TV.PTR point to the upper left-hand corner of 
the rectangle to be cleared, and then calling CLR.XY with the X and Y registers 
holding, respectively, the width and height of the rectangle to be cleared. 



CLR.TV JSR TVPUSH Save the zero-page bytes that will be 

changed. 
JSR TVHOME Set the screen location to upper-left cor- 

ner of the screen. 
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LDX TVCOLS 


Load X,Y registers with 


LDY TVROWS 


X,Y dimensions of the screen. 


JSR CLR.XY 


Clear X columns, Y rows from current 




screen location. 


JSR TV.POP 


Restore zero-page bytes that were 




changed. 


RTS 


Return to caller, with screen clear and 




with zero page preserved. 


CLR.XY STX COLS 


Set the number of columns to be 




cleared. 


TYA 




TAX 


Now X holds the number of rows to be 




cleared. 


CLRROW LDA BLANK 


Load accumulator with your system's 




graphic code for a blank. 


LDY COLS 


Load Y with number of columns to be 




cleared. 


CLRPOS STA (TV.PTR),Y 


Clear a position by writing a blank into 

it. 

Adjust index for next position in the 

TCWAT 


DEY 


BPL CLRPOS 


ruw. 

If not done with row, clear next posi- 




tion... 


JSR TVDOWN 


If done with row, move current screen 




location down by one row. 


DEX 


Done last row yet? 


BPL CLRROW 


If not, clear next row... 


RTS 


If so, return to caller. 


COLS .BYTE 


Variable: holds number of columns to 




be cleared. 



There are many more screen utilities you could develop, but the utilities pre- 
sented in this chapter are a good basic set. Now programs can call the following 
subroutines to perform the following functions: 



ASCII: Return ASCII character for 4 LSB in A. 

CENTER: Set current screen position to center of screen. 

CLR.TV: Clear the entire video display, preserving TV.PTR. 

CLR.XY: Clear a rectangle of the screen, with X,Y dimensions specified 

by the X,Y registers. 
TVDOWN: Move current screen position down by one row. 
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TVHOME: Set current screen position to the upper-left corner of the 

screen. 
TVPLUS: Add A to TV.PTR. 

TV.POP: Restore previously saved screen position from stack. 

TVPUSH: Save current screen location on stack. 

TV.PUT: Display ASCII character in A at current screen location. 

TVSKIP: Advance to next screen location. 

TVTOXY: Set current screen position to X,Y coordinates given by X,Y 

registers. 
VUBYTE: Display A, in hexadecimal form, at current screen location. 

Advance current screen location past the displayed byte. 
VUCHAR: Display A as an ASCII character in current screen location; 

then advance to next screen location. 



With these screen utilities, a calling program can drive the screen display with- 
out ever dealing directly with screen memory or even with the zero page. The calling 
program need not concern itself with anything other than the current position on the 
screen, which can be dealt with as a concept, rather than as a particular address 
hard-wired into the code. 
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Chapter 6: 



The Visible Monitor 



Hand Assembling Object Code 

An assembler is a wonderful software tool, but what if you don't have one? Is it 
possible to write 6502 code without an assembler? 

You bet! 

Not only is it possible to write machine code by hand, but all of the software in 
this book was originally assembled and entered into the computer by hand. In fact, I 
hand assembled my code long after I had purchased a cassette-based assembler, 
because I could hand assemble a small subroutine faster than I could load in the en- 
tire assembler. 

Hand assembling code imposes a certain discipline on the programmer. Because 
branch addresses must be calculated by counting forward or backward in hexa- 
decimal, I tried to keep my subroutines very small. (How far can you count back- 
ward in hexadecimal?) I wrote programs as many nested subroutines, which I could 
assemble and test individually, rather than as monolithic, in-line code. This is a 
good policy even for programmers who have access to an assembler, but it is essen- 
tial for any programmer who must hand assemble code. 

Yet once youve written a program consisting of machine-language instructions, 
how can you enter it into memory? You can read your program on paper, but how 
can you present it to the 6502? 

A program called a machine-language monitor allows you to examine and 
modify memory. It also allows you to execute a program stored in memory. The 
Commodore 64 and VIC-20 do not feature a built-in (ROM) machine language 
monitor. Very good monitors are available on plug-in cartridges and disks, but 
these can cost $40 or more. So before you run out and buy a full-featured machine 
language monitor, let's take a look at a very simple monitor. 
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We'll look at a monitor stored in ROM on the Ohio Scientific (OSI) Challenger 
I-P. It is presented here only for purposes of illustration, since it is not available for 
Commodore computers. 



A Minimal Machine-Language Monitor 

You can invoke the OSI ROM monitor quite easily by pressing the BREAK key 
and then the "M" key. The monitor clears the video screen and presents the display 
shown in figure 6.1. 



0000 A9 



Figure 6.1: Ohio Scientific ROM (read-only memory) monitor display. 



The display consists of two fields of hexadecimal characters: an address field 
and a data field. Figure 6.1 indicates that $A9 is the current value of address $0000. 

The OSI ROM monitor has two modes: address mode and data mode. When 
the monitor is in address mode, you can display the contents of any address simply 
by typing the address on the keyboard. Each new hexadecimal character will roll in- 
to the address field from the right. To display address $FE0D, you simply type the 
keys F, E, 0, and then D. 

To change the contents of an address, you must enter the data mode. When the 
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OSI ROM monitor is in the data mode, hexadecimal characters from the keyboard 
will roll into the data field on the screen. For your convenience, when the monitor is 
in the data mode you can step forward through memory (ie: increment the displayed 
address) by depresssing the RETURN key. Unfortunately, this convenience is not 
available in address mode, and neither mode allows you to step backward through 
memory (ie: to decrement the address field). 

Beware: the OSI ROM monitor can mislead you. If the monitor is in the data 
mode and you type a hexadecimal character on the keyboard, that character will roll 
into the data field on the screen. Presumably that hexadecimal character also rolls 
into the memory location displayed on the screen. Yet, this might not be the case. In 
fact, the OSI ROM monitor displays the data you intended to store in an address, 
rather than the actual contents of that address. If you try to store data in a read-only 
memory address, for example, the OSI ROM monitor will confirm that you've 
stored the intended data in the displayed address, yet if you actually inspect that ad- 
dress (by entering address mode and typing in the address), you'll see that you 
changed nothing. This makes sense — you can't write to read-only memory. But the 
OSI ROM monitor leads you to think that you can. 

The OSI ROM monitor can be confusing in other ways. For example, the dis- 
play does not tell you whether you're in data mode or address mode; you've got to 
remember at all times which mode you last told the monitor to use. Furthermore, to 
escape from address mode you must use one key, while to escape from data mode 
you must use another key. Therefore you must always remember two escape codes 
as well as the current mode of the monitor. 

Furthermore, the OSI ROM monitor does not make it very easy for you to enter 
ASCII data into memory. To enter an ASCII message into memory, you must con- 
sult an ASCII table (such as Appendix A2 in this book), look up the hexadecimal re- 
presentation of each character in your message, and then enter each of those ASCII 
characters via two hexadecimal keystrokes. Then, once you've got an ASCII 
message in memory, the OSI ROM monitor won't let you read it as English text; 
you'll have to view that message as a series of bytes in hexadecimal format, and then 
look up, again in Appendix A2 or its equivalent, the ASCII characters defined by 
those bytes. That won't encourage you to include a lot of messages in your soft- 
ware — even though meaningful prompts and error messages can make your soft- 
ware much easier to maintain and use. 

Finally, it is worth examining the way the OSI ROM monitor executes pro- 
grams in memory. When you type "G" on the Ohio Scientific Challenger I-P, the 
OSI ROM monitor executes a JMP (unconditional jump) to the displayed address. 
That transfers control to the code selected, but it does so in such a way that the code 
must end with another unconditional jump if control is to return to the OSI ROM 
monitor. This forces you to write programs that end with a JMP, rather than 
subroutines that end with an RTS. 

Programs that end with a JMP are not used easily as building blocks for other 
programs, whereas subroutines are incorporated quite easily into software struc- 
tures of ever-greater power. So wouldn't it be nice if a machine-language monitor 
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executed a JSR to the displayed address? This would call the displayed address as a 
subroutine, encouraging users to write software as subroutines, rather than as code 
that jumps from place to place. Such a monitor might actually encourage good pro- 
gramming habits, inviting the user to program in a structured manner, rather than 
daring the user to do so. In this chapter well develop such a monitor. 



Objectives 

If you've spent any time using a minimal machine-language monitor, you've 
probably thought of some ways to improve it. Based on my own experience, I knew 
that I wanted a monitor to be: 

1) Accurate 

The data field should display the actual contents of the displayed address, not 
the intended contents of that address. 

2) Convenient 

It should be possible to step forward or backward through memory, in any 
mode. It should also be possible to enter ASCII characters into memory directly 
from the keyboard, without having to look up their hexadecimal representations 
first, and it should be possible to display such characters as ASCII characters, rather 
than as bytes presented as pairs of hexadecimal digits. 

3) Encourage Structured Programming 

The monitor should call the displayed address as a subroutine, rather than jump 
to the displayed address. This will encourage the user to write subroutines, rather 
than monolithic programs that jump from place to place. 

4) Simplify Debugging 

The monitor should load the 6502 registers with user-defined data before calling 
the displayed address. Thus a user can initially test a subroutine with different 
values in the registers. Then, when the called subroutine returns, the monitor should 
display the new contents of the 6502 registers. Thus, by seeing how it changes or 
preserves the values of the 6502 registers, the user could judge the performance of 
the subroutine. 

Because my objective was to make the 6502 registers visible to the user by dis- 
playing the 6502 registers before and after any subroutine call, I've chosen to call 
this monitor the Visible Monitor. Figure 6.2 shows its display format. 
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FIELD 1 2 3 4 5 6 



1135 4A 



A 
00 




Figure 6.2: Visible Monitor Display with fields numbered. 



VISIBLE MONITOR DISPLAY 



The Visible Monitor Display 

Notice that the display in figure 6.2 has seven fields, not two as in the OSI ROM 
monitor display. The first two fields (fields and 1) are the same as the two fields in 
the OSI ROM monitor — that is, they display an address and a hexadecimal 
representation of the contents of that address. Field 2 is a graphic representation of 
the contents of the displayed address. If that address holds an ASCII character, then 
the graphic will be the letter, number, or punctuation mark specified by the byte. 
Otherwise, that graphic will probably be a special graphic character from your com- 
puter's nonstandard (ie: nonASCII) character set. 

Fields 3 thru 6 represent four of the 6502 registers: A (the Accumulator), X (the 
X Register), Y (the Y Register), and P (the Processor Status Register). When you type 
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G to execute a program, the 6502 registers will be loaded with the displayed values 
before the program is called; when control returns to the monitor, the contents of 
the 6502 registers at that time will be displayed on the screen. 

In addition to the seven fields mentioned above, the Visible Monitor's display 
includes an arrow pointing up at one of the fields. In order to modify a field, you 
must make the arrow point to that field. To move the arrow from one field to 
another, I've chosen to use the RIGHT-ARROW and LEFT-ARROW keys. Touch- 
ing the RIGHT-ARROW key will move the arrow one field to the right, and de- 
pressing the LEFT-ARROW key will move the arrow one field to the left. (Note 
that the RIGHT-ARROW and LEFT-ARROW keys are both on the same physical 
key. Press that key without shifting to move to the right; press it while holding 
down the SHIFT key to move to the left.) 

I've chosen to use the space bar to step forward through memory and the return 
key to step backward through memory, but you may choose other keys if you prefer 
(eg: the " + " and " — " keys). The space bar seems reasonable to me for stepping for- 
ward through memory, because on a typewriter I press the space bar to bring the 
next character into view; RETURN seems reasonable for stepping backward through 
memory because RETURN is almost synonymous with ''back up," and that's what I 
want it for: to back up through memory. With such a display and key functions, we 
ought to have a very handy monitor. 



Data 



Before we develop the structure and code of the Visible Monitor, let's decide 
what variables and pointers it must have. 

The Visible Monitor must have some way of knowing what address to display 
in field 0. It can do this by maintaining a pointer to the currently selected address. 
Because it will specify the currently selected address, let's call this pointer SELECT. 
Then, when the user presses the spacebar, the Visible Monitor need only increment 
the SELECT pointer. When the user presses RETURN, the Visible Monitor need only 
decrement the SELECT pointer. That will enable the user to step forward and back- 
ward through memory. 

The user will also want to modify the 6502 register images. Since there are four 
register images shown in figure 6.2, let's have 4 bytes, one for each register image. If 
we keep them in contiguous memory, we can refer to the block of register images as 
REGISTERS, or simply as REGS (since REGISTERS is longer than six characters, the 
maximum label length acceptable to the assembler used in the preparation of this 
book). 

Finally, the Visible Monitor must keep track of the current field. Since there can 
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only be one current field at a time, we can have a variable called FIELD, whose value 
tells us the number of the current field. Then, when the user wants to select the next 
field, the Visible Monitor need only increment FIELD, and when the user wants to 
move the arrow to the previous field, the Visible Monitor need only decrement 
FIELD. If FIELD gets out of bounds (any value that is not thru 6), then the Visible 
Monitor should assign an appropriate value to FIELD. The following code declares 
these variables in the form acceptable to an OSI 6500 Assembler: 







Variables 


SELECT 


.WORD 


This points to the currently selected 
byte. 


REG.A 


.BYTEO 


REG.A holds the image of Register A 
(the Accumulator). 


REG.X 


.BYTEO 


REG.X holds the image of Register X. 


REG.Y 


.BYTEO 


REG.Y holds the image of Register Y. 


REG.P 


.BYTEO 


REG.P holds the image of the Processor 
Status Register. 


FIELD 


.BYTEO 


FIELD holds the number of the current 
field. 




REGS = REG.A 






Structure 



I want to keep the Visible Monitor highly modular, so it can be easily extended 
and modified. I have therefore chosen to develop the Visible Monitor according to 
the structure shown in figure 6.3. Clearly, the Visible Monitor loops. It places the 
monitor display on the screen. It then updates the information in that display by get- 
ting a keystroke from the user and performing an action based on that keystroke. It 
does this over and over. 





1 


r 




DISPLAY 










UPDATE 









Figure 6.3: A simple structure for interactive display programs. 



With this flowchart as a guide, we can now write the source code for the top 
level of the Visible Monitor: 



VISMON 

VISMON PHP Save caller's status flags. 

LOOP JSR DSPLAY Put monitor display on screen. 

JSR UPDATE Get user request and handle it. 

CLC 

BCC LOOP Loop back to display... 



This is only the top level of the Visible Monitor; it won't work without two sub- 
routines: DSPLAY and UPDATE. So it looks as if we've traded the task of writing 
one subroutine for the task of writing two. But by structuring the monitor in this 
way, we make the monitor much easier to develop, document, and debug. 

Which subroutine should we write first? Let's start with the DSPLAY module, 
since the display is visible to the user, and the Visible Monitor must meet the user's 
needs. Once we know how to drive the display, we can write the UPDATE routine. 



Monitor Display 

Figure 6.2 shows the display we want to present on the video screen. As you can 
see, this display consists of three lines of characters: the label line, the data line, and 
the arrow line. The label line labels four of the fields in the data line, using the char- 
acters A, X, Y, and P. The data line displays an address, the contents of that address 
(both in hexadecimal representation and in the form of a graphic), and then displays 
the values of the four registers in the 6502. Underneath the data line, the arrow line 
provides one arrow pointing up at one of the fields in the data line. 

Since the display is defined totally in terms of the label line, the data line, and 
the arrow line, we are ready now to diagram the top level of monitor display. See 
figure 6.4. 

With the flowchart in figure 6.4 as a guide, we can now write source code for 
the top level of the DSPLAY subroutine: 
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f START J 






CLEAR PORTION 
OF SCREEN 






DISPLAY LABEL LINE 






DISPLAY DATA LINE 






DISPLAY ARROW LINE 






C RETURN J 



Figure 6.4: Routine to display the monitor information. 



DSPLAY 



DSPLAY 



JSR CLRMON Clear monitor's portion of screen. 

JSR LINE.l Display the Label Line. 

JSR LINE.2 Display the Data Line. 

JSR LINE.3 Display the Arrow Line. 

RTS Return to caller. 



Now instead of one subroutine (DSPLAY), it looks as if we must write four sub- 
routines: CLRMON, LINE.l, LINE.2, and LINE.3. But as the subroutines grow in 
number, they shrink in difficulty. 

Before we put up any of the monitor's display, let's clear that portion of the 
screen used by the monitor's display. Then we can be sure we won't have any gar- 
bage cluttering up the monitor display. 

Since we already have a utility to clear X columns and Y rows from the current 
location on the screen, CLRMON can just set TV.PTR to the upper-left corner of the 
screen, load X and Y with appropriate values, and then call CLR.XY. Here's source 
code: 
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CLRMON 



LDX #2 

LDY #2 

JSR TVTOXY 

LDX TVCOLS 

LDY #3 

JSR CLR.XY 

RTS 



Set TV.PTR to column 2, row 2 of 
screen. 

We'll clear the full width of the 
screen for 3 rows. 
Here we clear them. 
Return to caller. 



Display Label Line 

The subroutine LINE.l must put the label line onto the screen. We'll store the 
character string "A X Y P" somewhere in memory, at a location we may refer to as 
LABELS. Then LINE.l need only copy 10 bytes from LABELS to the appropriate 
location on the screen. That will display the LABEL line for us: 



LINE.l 



LINE.l 


LDX #11 


X-coordinate of Label "A". 




LDY #0 


Y-coordinate of Label "A". 




JSR TVTOXY 


Place TV.PTR at coordinates given by 
X,Y registers. 




LDY#0 


Put labels on the screen: 




STY LBLCOL 


Initialize label column counter. 


LBLOOP 


LDA LABELS, Y 


Get a character and 




JSR VUCHAR 


put its graphic on the screen. 




INC LBLCOL 


Prepare for next character. 




LDY LBLCOL 


Use label column as an index. 




CPY #10 


Done last character? 




BNE LBLOOP 


If not, do next one. 




RTS 


Return to caller. 


LABELS 


.BYTE A X ' 


These are the characters 




.BYTE V P' 


to be copied to the screen. 


LBLCOL 


.BYTE 


This is a counter. 



Display Data Line 

Displaying the data line will be more difficult than displaying the label line, for 
two reasons. First, the data to be displayed will change from time to time, whereas 
the labels in the label line need never change. Second, most fields in the data line dis- 
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play data in hexadecimal representation. To display 1 byte as two hexadecimal 
digits requires more work than is needed to display 1 byte as one ASCII character. 
However, we have a screen utility (VUBYTE) to do that work for us. In fact, we 
have enough screen utilities to make even the display of seven fields of data quite 
straightforward. Following, then, is the display data-line routine: 



LINE.2 



LINE.2 



VUREGS 



LDX#0 

LDY#1 

JSR TVTOXY 

LDA SELECT +1 
JSR VUBYTE 
LDA SELECT 
JSR VUBYTE 
JSR TVSKIP 
JSR GET.SL 

PHA 

JSR VUBYTE 

JSR TVSKIP 

PLA 

JSR VUCHAR 

JSR TVSKIP 



LDX#0 
LDA REGS,X 
JSR VUBYTE 
JSR TVSKIP 
INX 
CPX#4 
BNE VUREGS 
RTS 



Load X register with X-coordinate for 

start of data line. 

Load Y register with Y-coordinate for 

data line. 

Set TV.PTR to point to the start of the 

data line. 

Display high byte of the 

currently selected address. 

Display low byte of the 

currently selected address. 

Skip one space after address field. 

Look up value of the currently selected 

byte. 

Save it. 

Display it, in hexadecimal format, in 

field 1. 

Skip one space after field 1. 

Restore value of currently selected byte. 

Display that byte, in graphic 

form, in field 2. 

Skip one space after field 2. 

Display 6502 register images in fields 4 

thru 7: 

Look up the register image. 

Display it in hexadecimal format. 

Skip one space after hexadecimal field. 

Get ready for next register... 

Done 4 registers yet? 

If not, do next one... 

If all registers displayed, return. 
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Get Currently Selected Byte 

Note that the subroutine LINE.2, which puts up the second line of the Visible 
Monitor's display, does not itself "know" the value of the currently selected byte. 
Rather, it calls a subroutine, GET.SL, which returns the contents of the address 
pointed to by SELECT. That makes life easy for LINE.2, but how does GET.SL 
work? 

If SELECT were a zero-page pointer, GET.SL could be a very simple subroutine 
and take advantage of the 6502's indirect addressing mode: 



GET.SL LDY #0 Get the zeroth byte above 

LDA (SELECT),Y the address pointed to by SELECT. 

RTS Return to caller. 



However, SELECT is not a zero-page pointer; it's up in page $32. And the 6502 
doesn't have an addressing mode that will let us load a register using any pointer not 
in the zero page. So how can we see what's in the address pointed to by SELECT? 

We can do it in two steps. First, we'll set a zero-page pointer equal in value to 
the SELECT pointer, so it points to the same address; and then, since we already 
know how to load the accumulator using a zero-page pointer, we'll load the ac- 
cumulator using the zero-page pointer that now equals SELECT. Let's call that zero- 
page pointer GETPTR, since it will allow us to get the selected byte. Using such a 
strategy, GET.SL can look like this: 



GET.SL LDA SELECT Set GETPTR equal to 

STA GETPTR SELECT: first the low byte; 

LDA SELECT + 1 then the 

STA GETPTR + 1 high byte. 

LDY #0 Get the zeroth byte above 

LDA (GETPTR),Y the address pointed to by GETPTR. 

RTS Return to caller, with A bearing the con- 

tents of the address specified by 
SELECT. 



This second attempt at GET.SL will load the accumulator with the currently 
selected byte, even when SELECT is not in the zero page. However, beware because 
by setting GETPTR equal to SELECT, GET.SL changes the value of GETPTR. This 
can be very dangerous. What, for example, if some other program were using 
GETPTR for something? That other program would be sabotaged by GET.SL's ac- 
tions. If we let GET.SL change the value of GETPTR, then we must make sure that 
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no other program ever uses GETPTR. 

Such policing is hard work — and almost impossible if you want your software 
to run on a system in conjunction with software written by anyone else. Since I want 
the Visible Monitor to share your system's ROM input/output routines, and since I 
have no way of knowing what zero-page addresses those routines may use, I must 
refrain from using any of those zero-page bytes myself. When I have to use zero- 
page bytes — as now, so that GET.SL can use the 6502's indirect addressing mode — 
I must restore any zero-page bytes I've changed. 

Therefore, GET.SL must be a four-part subroutine, which will: 1) save 
GETPTR; 2) set GETPTR equal to SELECT; 3) load the accumulator with the con- 
tents of the address pointed to by GETPTR; and finally, 4) restore GETPTR to its 
original value. This larger, slower, but infinitely safer version of GET.SL looks like 
this: 



GET.SL LDA GETPTR Save GETPTR 

PHA on stack and 

LDX GETPTR +1 in X register. 



LDA SELECT 
STA GETPTR 
LDA SELECT +1 
STA GETPTR +1 



Set GETPTR 
equal to 
SELECT. 



LDY#0 

LDA (GETPTR),Y 

TAY 



Get the contents of the 
byte pointed to by SELECT, 
and save it in Y register. 



PLA 

STA GETPTR 

STX GETPTR +1 

TYA 

RTS 



Restore GETPTR 

from stack 

and from X register. 

Restore contents of current byte from 

temporary storage in Y to A. 

Return with contents of currently 

selected byte in accumulator and with 

the zero page preserved. 



Display Arrow Line 

This routine displays an up-arrow directly underneath the current field: 



72 



LINE.3 



LINE.3 



FLD.OK 



FIELDS 



LDY FIELD 

SEC 

CPY #7 

BCC FLD.OK 

LDY#0 

STY FIELD 

LDA FIELDS,Y 

TAX 

LDY #2 



JSR 



TVTOXY 



ARROW 
VUCHAR 



LDA 

JSR 

RTS 

.BYTE 3,6,8 

.BYTE $0B,$0E 

.BYTE $11,$14 



Look up current field. 

If it is out of bounds, 

set it to 

default field 

(the address field). 

Look up column number for current 

field. 

That will be the arrow's 

X-coordinate. 

Set arrow's Y-coordinate. 

Make TV.PTR point to arrow 

location. 

Place an up-arrow in 
that location. 
Return to caller. 

This data area shows which column 
should get an up-arrow to indicate 
any one of fields thru 6. Changing one 
of these values will cause the up-arrow 
to appear in a different column when in- 
dicating a given field. 



Now that we have all the routines we need for the monitor display, let us look 
at how they fit together to form a structure. Here is the hierarchy of subroutines in 
DSPLAY: 



MONITOR DISPLAY 

DISPLAY LABEL LINE 
DISPLAY DATA LINE 
GET.SL 
VUBYTE 
ASCII 
TVPLUS 
TVSKIP 
DISPLAY ARROW LINE 
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When DSPLAY is called, it will clear the top four rows of the screen, display 
labels, data, the arrow, and then return. How long do you think it will take to do all 
this? The code may look cumbersome, but it executes in the blink of an eye! 



Monitor Update 

The UPDATE routine is the monitor subroutine that executes functions in 
response to various keys. The basic key functions we want to implement are as 
follows: 



Key Function 

RIGHT-ARROW Move arrow one field to the right. 

LEFT- ARROW Move arrow one field to the left. 

SPACEBAR Increment address being displayed. 

(Step forward through memory.) 
RETURN Decrement address being displayed. 

(Step backward through memory.) 

If the arrow is in fields 1, 3, 4, 5, or 6, then, for 

keys thru 9, A thru F Roll a hexadecimal character into the field pointed 

to by the arrow. 

If the arrow is under field 2 (the graphic field) then, for 

All keys Enter the key's character into field 2 (ie: enter the 

key's character into the displayed address). 



Since the video display need not be refreshed (redisplayed within a given time) 
by the processor, the UPDATE routine need not return within a given amount of 
time. The UPDATE routine, therefore, can wait indefinitely for a new character 
from the keyboard, and then take appropriate action. 

We can diagram these functions as shown in figure 6.5. You add additional 
functions to this routine by adding additional code to test the input character. You 
then call the appropriate function subroutine which you write. 
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C START j 



Figure 6.5: Flowchart for the monitor-update routine. 



GET A CHAR- 
ACTER FROM 
KEYBOARD 



YES 



YES 



SPACE^\ YES 
KEY 



^RETURNfV YES 



KEY 



IS MONITOR 
IN CHARACTER 
MODE 



| 



YES 



NO 



SAVE 

CHARACTER 
ON STACK 



r 1 

| HERE ADDITIONAL I 
I FUNCTIONS MAY BE 

ADDED WITH CODE 
I TO TEST THE 
| KEYBOARD CHAR 

ACTER AND 

THEN CALL 
I APPROPRIATE 
I SUBROUTINES 




YES 



MOVE ARROW 

RIGHT 

BY ONE FIELD 



MOVE ARROW 

LEFT 

BY ONE FIELD 



INCREMENT 
DISPLAYED 
ADDRESS 



DECREMENT 
DISPLAYED 
ADDRESS 



CALL 

DISPLAYED 

ADDRESS 



STORE 
CHARACTER 
IN DISPLAYED 
ADDRESS 



ROLL BINARY 
EQUIVALENT OF 
CHARACTER INTO 
CURRENT FIELD 



POP 

CHARACTER 
FROM 
STACK 



POP CHARACTER 
FROM STACK 



L 



I ' 

I 
I 
I 



c 



RETUR 



D 
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Get a Key 

First we need a way to get a key from the keyboard. Of course, your system 
has a read-only memory routine to perform this function. As you can see in 
appendices Bl and B2, we have placed the address of that routine into a pointer 
called ROMKEY located at address $3008. Once you have set the ROMKEY 
pointer, you can get a key by calling a subroutine labeled GETKEY, which simply 
transfers control to the ROM routine whose address you placed in ROMKEY: 



GETKEY 



JMP (ROMKEY) 



Now that we have a way to get a key from the keyboard, we should be able to 
write source code for the monitor-update routine: 



Update 



UPDATE 
IF.GRTR 

NEXT.F 



EXIT.l 
IF.LSR 

PREV.F 



EXIT.2 
IF.SP 

INC.SL 



EXIT.3 
IF.CR 



JSR GETKEY 
CMP #$1D 
BNE IF.LSR 
INC FIELD 
LDA FIELD 
CMP #7 
BNE EXIT.l 
LDA #0 
STA FIELD 
RTS 

CMP #$9D 
BNE IF.SP 
DEC FIELD 
BPL EXIT.2 
LDA #6 
STA FIELD 

RTS 

CMP #SPACE 
BNE IF.CR 
INC SELECT 
BNE EXIT.3 
INC SELECT -hi 

RTS 

CMP #CR 
BNE IFCHAR 



Get a character from the keyboard. 

Is it the RIGHT-ARROW key? 

If not, perform text test. 

If so, select the next field. 

If arrow was at the right-most field, 

place it underneath the left-most 

field. 



Then return. 

Is it the LEFT-ARROW key? 

If not, perform next test. 

If so, select previous field: 

the field to the left of the 

current field. If arrow was at 

left-most field, place it under 

right-most field. 

Then return. 

Is it the space bar? 

If not, perform next test. 

If so, step forward through 

memory, by incrementing the 

pointer that specifies the displayed 

address. 

Then return 

Is it carriage return? 

If not, perform next test. 
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DEC.SL 


LDA SELECT 




BNE NEXT.l 




DEC SELECT +1 


NEXT.l 


DEC SELECT 




RTS 


IFCHAR 


LDX FIELD 




CPX #2 




BNE IF.GO 



PUT.SL 



TAY 

LDA TV.PTR 

PHA 

LDX TV.PTR + 1 

LDA SELECT 
STA TV.PTR 
LDA SELECT +1 
STA TV.PTR + 1 
TYA 

LDY#0 

STA (TV.PTR),Y 

STX TV.PTR -hi 

PLA 

STA TV.PTR 

RTS 



If so, step backward through 
memory by decrementing the 
pointer that selects the 
address to be displayed. 
Then return. 
Is arrow underneath the 
character field (field 2)1 
If not, perform next test. 
Put the contents of A into the currently 
selected address. 

Use Y to hold the character well put in 
the selected address. 
Save zero-page pointer TV.PTR 
on stack and in X before we 
use it to put character in selected ad- 
dress. 

Set TV.PTR equal to SELECT, 
so it points to the 
currently selected 
address. 

Restore to A the character we'll put in 
the selected address. 
Store it in the 
selected address. 
Restore TV.PTR to 
its original value. 

Return to caller, with character origi- 
nally in A now in the selected address 
and with zero page unchanged. 



IF.GO 


CMP #'G 


Is it 'G' for GO? 




BNE IF.HEX 


If not, perform next test. 


GO 


LDY REG.Y 


If so, load the 6502 registers 




LDX REG.X 


with their displayed images. 




LDA REG.P 






PHA 






LDA REG.A 






PLP 






JSR CALLSL 


Call the subroutine at the selected ad- 
dress. 




PHP 


When subroutine returns, 




STA REG.A 


save register values in register 




STX REG.X 


images. 
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CALLSL 
IF.HEX 



STY REG.Y 

PLA 

STA REG.P 

RTS 

JMP (SELECT) 

PHA 

JSR BINARY 



Then return to caller. 
Call the subroutine at the selected ad- 
dress. 

Save keyboard character. 
If accumulator holds ASCII character 
for thru 9 or A thru F, BINARY 
returns the binary representation of that 
hexadecimal digit. Otherwise BINARY 
returns with A = FF and the minus flag 
set. 





BMI OTHER 


If accumulator did not hold a hexa- 
decimal character, perform next test. 




TAY 






PLA 






TYA 




ROLLIN 


LDX FIELD 


Roll A into a hexadecimal field. 




BNE NOTADR 


Is arrow underneath the address field 
(field 0)7 If not, the arrow must be 
under another hexadecimal field. 


ADRFLD 


LDX #3 


Since arrow is underneath the address 


LOOP.l 


CLC 


field, roll accumulator's hexadecimal 




ASL SELECT 


digit into the address field by rolling it 




ROL SELECT +1 


into the pointer that selects the 




DEX 


displayed address. 




BPL LOOP.l 






TYA 






ORA SELECT 






STA SELECT 






RTS 


Then return. 


NOTADR 


CPX#1 


Is arrow underneath field 1? 




BNE REGFLD 


If not, it must be underneath a register 
image. 


ROL.SL 


AND#$0F 


Roll As 4 LSB into contents 




PHA 


of currently selected byte. 




JSR GET.SL 


Get the contents of the selected 




ASL A 


address and shift left 4 times. 




ASL A 






ASL A 






ASL A 






AND #$F0 






STA TEMP 


Save it in a temporary variable. 
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PLA 




ORA TEMP 




JSR PUT.SL 




RTS 


TEMP 


.BYTE 


REGFLD 


DEX 




DEX 




DEX 




LDY#3 


LOOP.2 


CLC 




ASL REGS,X 




DEY 




BPL LOOP.2 




ORA REGS,X 




STA REGS,X 




RTS 


OTHER 


PLA 




CMPfQ 




BNE NOT.Q 




PLA 




PLA 




PLP 




RTS 


NOT.Q 


JSR DUMMY 


DUMMY 


RTS 



Get original A's 4 LSB and 

OR them with shifted contents of 

selected address. 

Store the result in the selected 

address and return. 

This byte holds the temporary variable 
used by ROL.SL. 
The arrow must be underneath a 
register image — field 3, 4, 5, or 6. 



Roll accumulator's hexadecimal digit 
into appropriate register image... 



...Then return. 

Restore the raw keyboard character that 

we saved on the stack. 

Is it 'Q' for Quit? 

If not, perform next test. 

If so, return to 

the caller of 

VISMON. 

Replace this call to DUMMY with a call 
to any other subroutine that extends the 
functionality of the Visible Monitor. 
Return to caller. 



ASCII to BINARY Conversion 

The Visible Monitor's UPDATE subroutine requires a subroutine called 
BINARY, which will determine if the character in the accumulator is an ASCII 
thru 9 or A thru F, and, if so, return the binary equivalent. On the other hand, if the 
accumulator does not contain an ASCII thru 9 or A thru F, BINARY will return an 
error code, $FF. Thus: 
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If accumulator holds BINARY will return 

$30 (ASCII "0") $00 

$31 (ASCII "1") $oi 

$32 (ASCII "2") $02 

$33 (ASCII "3") $03 

$34 (ASCII "4") $04 

$35 (ASCII "5") $05 

$36 (ASCII "6") $06 

$37 (ASCII "7") $07 

$38 (ASCII "8") $08 

$39 (ASCII "9") $09 

$41 (ASCII "A") $0A 

$42 (ASCII "B") $0B 

$43 (ASCII "C") $0C 

$44 (ASCII "D") $od 

$45 (ASCII "E") $ E 

$46 (ASCII "F") $QF 

Any other value $FF 



We could solve this problem with a table, BINTAB, for BINary TABle. If 
BINTAB is at address $2000, then $2000 would contain a $FF, as would $2001, 
$2002, and all addresses up to $202F, because none of the ASCII codes from $00 thru 
$2F represent any of the characters thru 9 or A thru F. On the other hand, address 
$2030 would contain 00, because $30 (its offset into the table) is an ASCII zero, so 
$2030 gets its binary equivalent: $00, a binary zero. Similarly, since $31 is an ASCII 
1/ address $2031 would contain a binary 1:' $01. $2032 would contain a $02; $2033 
would contain a $03, and so on up to $2039, which would contain a $09. 

Addresses $203A thru $2040 would each contain $FF, because none of the 
ASCII codes from $3A thru $40 represent any of the characters thru 9 or A thru F. 
On the other hand, address $2041 would contain a $0A, because $41 is an ASCII 'A' 
and $0A is its binary equivalent: a binary 'A.' By the same reasoning, $2042 would 
contain $0B; $2043 would contain $0C, and so on up to $2046, which would contain 
$0C, and so on up to $2046, which would contain $0F. Addresses $2047 thru $20FF 
would contain $FFs because none of the values $47 thru $FF is an ASCII thru 9 or 
A thru F. 

To use such a table, BINARY need only be a very simple routine: 



BINARY TAY Use ASCII character as an index. 

LDA BINTAB,Y Look up entry in BINary TABle. 

RTS Return with it. 
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This is a typical example of a fast and simple table lookup code. But it requires a 
256-byte table. Perhaps slightly more elaborate code can get by with a smaller table, 
or do away altogether with the need for a table. Such code must calculate, rather 
than look up, its answers. Let's look closely at the characters we must convert. 

Legal inputs will be in the range $30 thru $39 or the range $41 thru $46. An in- 
put in the range $30 thru $39 is an ASCII thru 9, and subtracting $30 from such an 
input will convert it to the corresponding binary value. An input in the range $41 
thru $46 is an ASCII A thru F, so subtracting $37 will convert it to its corresponding 
binary value. For example, $41 (an ASCII 'A') minus $36 equals $0A (a binary 'A'). 
Any value not in either of these ranges is illegal and should cause BINARY to return 

a$FF. , , 

Given these input/output relationships, BINARY need only determine whether 
the character in the accumulator lies in either legal range, and if so perform the ap- 
propriate subtraction, or, if the accumulator is not in a legal range, then return a 

$FF. , , . . 

Here's some code for BINARY which makes these judgments, thus eliminating 

the need for a table: 



BINARY 



SEC 

SBC #$30 
BCC BAD 

CMP #$0A 
BCC GOOD 





SBC #7 
CMP #$10 




BCS BAD 
SEC 

CMP #$0A 
BCS GOOD 


BAD 
GOOD 


LDA #$FF 
RTS 
LDX#0 
RTS 



Prepare to subtract. 
Subtract $30 from character. 
If character was originally less than $30, 
it was bad, so return $FF. 
Was character in the range $30 thru 
$39? 

If so, it was a good input, and we've 
already converted it to binary by sub- 
tracting $30, so we'll return now with 
the character's binary equivalent in the 
accumulator. 
Subtract 7. 

Was character originally in the range 
$41 thru $46? 
If so, it was a bad input. 



Indicate a bad input by returning 
minus, with A holding $FF. 
Indicate a good input by returning 
plus, with A holding the character's 
binary equivalent. 
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Visible Monitor Utilities 

The Visible Monitor makes the following subroutines available to external 
callers: 



BINARY 



CALLSL 
DEC.SL 
GETKEY 

GET.SL 
GO 

INC.SL 
PUT.SL 
VISMON 



Determine whether accumulator holds the ASCII represen- 
tation for a hexadecimal digit. If so, return binary represen- 
tation for that digit. If not, return an error code ($FF). 
Call the currently selected address as a subroutine. 
Select previous address, by decrementing SELECT pointer. 
Get a character from the keyboard by calling machine's 
read-only memory routine indirectly. 
Get byte at currently selected address. 
Load registers from displayed images and call displayed ad- 
dress. Upon return, restore register images from registers. 
Select next byte (increment SELECT pointer). 
Store accumulator at currently selected address. 
Let user give the Visible Monitor commands until user 
presses 'Q' to quit. 



Figure 6.6 illustrates the hierarchy of the various routines of the Visible Monitor, 
some of which are detailed in later chapters. 



VISIBLE MONITOR 



DISPLAY 



UPDATE 



CLRMON 



LINE.l 



LINE. 2 



LINE. 3 



I I 1 

CALLIT BINARY EXTEND 



TVTOXY CLR.XY TVTOXY TVTOXY VUBYTE TVPLUS TVTOXY ROMKEY 



Figure 6.6: A hierarchy of the routines of the Visible Monitor. 
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Using the Visible Monitor 

Chapter 13 shows you how to enter the object code for the Visible Monitor 
into your computer. To run the Visible Monitor with all the features described thus 
far, you must use the BASIC OBJECT CODE LOADER (described in Chapter 13) 
to load the object code represented by the following appendices: 



Appendix Contains 

Screen utilities 

The Visible Monitor (Top Level and 
Display Subroutines) 
The Visible Monitor (Update Subroutine) 
System Data block for the VIC-20 
System Data Block for the Commo- 
dore 64. 



Entering the object code contained in the above appendices will give you the 
full functionality of the Visible Monitor. But that's just the beginning. There are 
many functions we can add to the Visible Monitor, to make it even more useful. 
We'll add those functions in the following chapters. 





El 




E2 




E3 


PLUS: 


E12 


OR: 


E13 
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Chapter 7: 



Print Utilities 



The Visible Monitor is a useful tool for examining and modifying memory, but 
at the moment it's mute: it can't "talk" to you except through the limited device of 
the fields in its display. You can use the Visible Monitor's character entry feature to 
place ASCII characters directly into screen memory, thus putting messages on the 
screen manually. However, as yet we have no subroutines to direct a complete 
message, report, or other string of characters to the screen, to a printer, or to any 
other output device. 

Most programs require some means of directing messages to the screen, thus 
providing the user with the basis for informed interaction, or to a printer, thus pro- 
viding a record of that interaction. This chapter presents a set of print utilities to per- 
form these functions. 

Fortunately, there are subroutines in your computer's operating system to per- 
form character output. The Commodore 64 and VIC-20 computers each feature a 
routine to print a character on the screen, thus simulating a TVT (Television 
Typewriter), and they each feature another routine to send a character to the device 
connected to the serial output port: usually a printer. I don't plan to reinvent those 
wheels in this chapter. Rather, the chapter's software will funnel all character output 
through code that calls the appropriate subroutine in your computer's operating 
system. And since we're going to have code that calls the two standard character 
output routines, why not provide a hook to a user-written character output routine, 
as well? Such a feature will make it trivial for you to direct any character output (eg: 
messages, hexdumps, disassembler listings, etc) to the screen and the printer, or to 
any special output device you may have on your system, provided that you've writ- 
ten a subroutine to drive that device. 
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Selecting Output Devices 

It should be possible for any program to direct character output to the screen, 
and/or to the printer, and/or to the user-written subroutine. Therefore, well need 
subroutines to select and deselect (stop using) each of these devices and to select and 
deselect all of these devices. Let's call these routines TVT.ON, TVTOFF, PR.ON, 
PR.OFF, USR.ON, USR.OFF, ALL.ON, and ALLOFF. With these subroutines, a 
calling program can select or deselect output devices individually or globally. 

The line of source code which will select the TVT as an output device follows: 



JSR TVT.ON 

This line will deselect the TVT: 

JSR TVTOFF 



That's a pretty straightforward calling sequence. 

The select and deselect subroutines will operate on three flags: TVT, PRINTR, 
and USER. The TVT flag will indicate whether the screen is selected as an output 
device; the PRINTR flag will indicate whether the printer is selected as an output 
device; and the USER flag will indicate whether the user-provided subroutine is 
selected as an output device. 

For convenience, well have a separate byte for each flag and define a flag as 
"off" when its value is zero, and "on" when its value is nonzero. 

Using this definition of a flag, we can select a given device simply by storing a 
nonzero value in the flag for that device; we can deselect a device simply by storing a 
zero in the flag for that device. 

The definitions for the flags and listings of the select and deselect subroutines 
follow: 



Device Flags 

OFF = When a device flag = zero, that device 

is not selected. 
ON = $FF When a device flag = $FF, that device is 

selected. 
TVT .BYTE ON This flag is zero if TVT is not selected; 

nonzero otherwise. Initially, the TVT is 

selected. 
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PRINTR 



USER 



.BYTE OFF 



.BYTE OFF 



This flag is zero if the PRINTR is not 
selected; nonzero otherwise. Initially, 
the printer is not selected. 
This flag is zero if the user-provided 
output subroutine is not selected; 
nonzero otherwise. Initially, the user- 
provided function is deselected. 



Select and Deselect Subroutines 



TVT.ON 

TVTOFF 

PR.ON 

PR.OFF 

USR.ON 

USROFF 

ALL.ON 
ALLOFF 



LDA #ON 

STATVT 

RTS 

LDA #OFF 

STATVT 

RTS 

LDA #ON 

STA PRINTR 

RTS 

LDA #OFF 

STA PRINTR 

RTS 

LDA #ON 

STA USER 

RTS 

LDA #OFF 
STA USER 

RTS 

JSR TVT.ON 

JSR PR.ON 

JSRUSR.ON 

RTS 

JSR TVTOFF 

JSR PR.OFF 

JSR USROFF 

RTS 



Select TVT as an output device 

by setting the flag that indicates 

the "select" state of the TVT. 

Deselect TVT as an output device 

by clearing the flag that indicates 

the "select" state of the TVT. 

Select printer as an output device 

by setting the flag that indicates 

the "select" state of the printer. 

Deselect printer as an output device 

by clearing the flag that indicates 

the "select" state of the printer. 

Select user-written subroutine as an 

output device by setting the flag that 

indicates the "select" state of the output 

routine provided by the user. 

Deselect user-written subroutine 

as an output device by clearing the flag 

that indicates the "select" 

state of the output routine provided by 

the user. 

Select all output devices by selecting 

each output device individually. 



Deselect all output devices by 
deselecting each output device 
individually. 
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A General Character-Print Routine 

Now that a calling routine can select or deselect any combination of output 
devices, we need a routine that will output a given character to all currently selected 
output devices. Let's call this routine PR.CHR, because it will PRint a CHaKacter. 

All the software in this book that outputs characters will do so by calling 
PR.CHR; none of that software will call your system's character-output routines 
directly. That makes the software in this book much easier to maintain. If you ever 
replace your system's TVT output routine or its printer-output routine with one of 
your own, you won't have to change the rest of the software in this book. That soft- 
ware will continue to call PR.CHR. However, if many lines of code in many places 
called your system's character-output routines directly, then replacing a read-only 
memory output routine with one of your own would require you to change many 
operands in many places. Who needs to work that hard? Funneling all character 
output through one routine, PR.CHR, means we can improve our character output 
in the future without difficulty. 

When it is called, PR.CHR will look at the TVT flag. If the TVT flag is set, it 
will call your system's TVT output routine. Then it will look at the PRINTR flag. If 
the PRINTR flag is set, it will call your system's routine that sends a character to the 
serial output port. Finally, it will look at the USER flag. If the USER flag is set, it will 
call the user-provided character-output routine. Having done all of this, PR.CHR 
can return. Figure 7.1 is a flowchart for PR.CHR. 



f START J 




Figure 7.1: To print a character to all 
currently selected output devices 
(PR.CHR, a general character-output 
routine). 





C RETURN j 



CALL SYSTEM'S 
TVT OUTPUT 
ROUTINE 



CALL SYSTEM'S 
PRINTER 
OUTPUT 
ROUTINE 



CALL USER 
WRITTEN 
OUTPUT 
ROUTINE 
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Output Vectors 

If the character output routines are located at different addresses in different 
systems, how can PR.CHR know the addresses of the routines it must call? It can't. 
But it can call those subroutines indirectly, through pointers that you set. 

You must set three pointers, or output vectors, so that they point to the 
character output routines in your system. A pointer called ROMTVT must point to 
your system's TVT output routine; a pointer called ROMPRT must point to your 
system's routine that sends a character to the serial output port; and a pointer called 
USROUT must point to your own, user-written, character-output routine. (If you 
have not written a special character-output subroutine, USROUT should point to a 
dummy routine which is nothing but an RTS instruction.) Then, if you ever relocate 
your TVT output routine, your printer-output routine, or your user-written output 
routine, you'll only have to change one output vector: ROMTVT, ROMPRT, or 
USROUT. Everything else in this book can remain the same. 

ROMTVT, ROMPRT, and USROUT need not be located anywhere near 
PR.CHR. That means we can keep all the pointers and data specific to your system 
in one place. We can store the output vectors with the screen parameters, in a single 
block of memory called SYSTEM DATA. See Appendix Bl or B2 for your com- 
puter. 

The source code of the PR.CHR routine follows: 







PR.CHR 


PR.CHR 


STA CHAR 


Save the character. 




BEQ EXIT 


If it's a null, return without printing it. 




LDA TVT 


Is TVT selected? 




BEQ IF.PR 


If not, test next device. 




LDA CHAR 


If so, send character indirectly to 




JSR SEND.l 


system's TVT output routine. 


IF.PR 


LDA PRINTR 


Is printer selected? 




BEQ IF.USR 


If not, test next device. 




LDA CHAR 


If so, send character indirectly 




JSR SEND.2 


to system's printer driver. 


IF.USR 


LDA USER 


Is user-written output subroutine 
selected? 




BEQ EXIT 


If not, test next device. 




LDA CHAR 


If so, send character indirectly 




JSR SEND.3 


to user-written output subroutine. 


EXIT 


RTS 


Return to caller. 


CHAR 


.BYTE 


This byte holds the last character passed 
to PR.CHR. 
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Vectored Subroutine Calls 



SEND.l JMP (ROMTVT) 

SEND.2 JMP (ROMPRT) 

SEND.3 JMP (USROUT) 



Specialized Character-Output Routines 

Given PR.CHR, a general character-output routine, we can write specific 
character-output routines to perform several commonly required functions. For ex- 
ample, it's often necessary for a program to print a carriage return and a line feed, 
thus causing a new line, or to print a space, or to print a byte in hexadecimal format. 
Let's develop several dedicated subroutines to perform these functions. Since each of 
these subroutines will call PR.CHR, their output will be directed to all currently 
selected output devices. 

Here are source listings for a few such subroutines: CR.LF, SPACE, and 
PR.BYT: 



PRINT A CARRIAGE RETURN-LINE FEED 

CR = $0D ASCII carriage return character. 

LF = $0A ASCII line feed character. 

CR.LF LDA #CR Send a carriage return and a 

JSR PR.CHR line feed to the currently selected 

LDA #LF device(s). 

JSR PR.CHR 

RTS Return. 



PRINT A SPACE 

SPACE LDA #$20 Load accumulator with ASCII space. 

JSR PR.CHR Print it to all currently selected output 

devices. 
RTS Return. 



PRINT BYTE 

PR.BYT PHA Save byte. 

LSR A Determine ASCII for the 4 MSB (most- 
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significant bits) in the 


LSRA 


byte: 


LSRA 




LSRA 




JSR ASCII 




JSR PR.CHR 


Print that ASCII character to the current 




device(s). 


PLA 


Determine ASCII for the 4 LSB (least- 




significant bits) in the 


JSR ASCII 


byte that was passed to this subroutine. 


JSR PR. CHR 


Print that ASCII character to the current 




device(s). 


RTS 


Return to caller. 



Repetitive Character Output 

Since some calling programs might need to output more than one space, a new 
line, or other character, why not have a few print utilities to perform such repetitive 
character outputs? In each case, the calling program need only load the X register 
with the desired repeat count. Then it would call SPACES to print X spaces, CR.LFS 
to print X new lines, or CHARS to print the character in the accumulator X times. 
Calling any of these routines with zero in the X register will cause no characters to be 
printed. To output seven spaces, a calling program would only have to include the 
following two lines of code: 



LDX#7 
JSR SPACES 



To output four blank lines, a program would require these two lines of code: 



LDX#4 
JSR CR.LFS 



To output ten asterisks, a program would need these three lines of code: 



LDA f * 
LDX #10 
JSR CHARS 



90 



In order to support these calling sequences, we'll need three small subroutines, 
SPACES, CR.LFS, and CHARS: 



Print X Spaces; Print X Characters 

SPACES LDA #$20 Load accumulator with ASCII space. 

CHARS STX REPEAT Initialize the repeat counter. 

RPLOOP PHA Save character to be repeated. 

LDX REPEAT Has repeat counter timed out yet? 

BEQ RPTEND If so, exit. If not, 

DEC REPEAT decrement repeat counter. 

JSR PR.CHR Print character to all currently selected 
output devices. 

PLA 

CLC Loop back to repeat 

BCC RPLOOP character, if necessary. 

RPTEND PLA Clean up stack. 

RTS Return to caller. 



Print X New Lines 



CR.LFS 
CRLOOP 



END.CR 
REPEAT 



STX REPEAT 

LDX REPEAT 

BEQ END.CR 

DEC REPEAT 

JSR CR.LF 

CLC 

RCC CRLOOP 

RTS 

.BYTE 



Initialize repeat counter. 

Exit if repeat counter has timed out. 

Decrement repeat counter. 

Print a carriage return and line feed. 

Loop back to see if done yet. 

If done, return to caller. 

This byte is used as a repeat counter by 

SPACES, CHARS, and CR.LFS. 



Print a Message 

Some calling programs might need to output messages stored at arbitrary places 
in memory. So let's develop a subroutine, called PR.MSG, to perform this function. 
PR.MSG will print a message to all currently selected output devices. It must get 
characters from the message in a sequential manner and pass each character to 
PR.CHR, thus printing it on all currently selected output devices. 

But how can PR.MSG know where the message starts and ends? 

We could require that the message be placed in a known location, but then 
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PR.MSG would lose usefulness as it loses generality. We could require that a pointer 
in a known location be initialized so that it points to the start of the message. But 
that would still tie up the fixed 2 bytes occupied by that pointer. Or we could have a 
register specify the location of a pointer that actually points to the start of the 
message. Presumably a calling program can find some convenient 2 bytes in the zero 
page to use as a pointer, even if it must save them before it sets them. The calling 
program can set this zero-page pointer so that it points to the beginning of the 
message, and then set the X register so that it points to that zero-page pointer. Hav- 
ing done so, the calling program may call PR.MSG. Using the indexed indirect ad- 
dressing mode, PR.MSG can then get characters from the message. 

When PR.MSG has printed the entire message, it will return to its caller. 

How will PR.MSG know when it has reached the end of the message? We can 
mark the end of each message with a special character: call it ETX, for End of TeXt. 
And for reasons which will become clear in Chapter 10, A Disassembler, well also 
start each message with another special character: TEX, for TEXt follows. 

If we can develop PR.MSG to work from these inputs, then it won't be hard for 
a calling program to print any particular message in memory. Let's look at the re- 
quired calling sequence. 

A message, starting with a TEX and ending with an ETX, begins at some ad- 
dress. We'll call the high byte of that address MSG.HI and the low bye of that ad- 
dress MSG.LO. Thus, if the message starts at address $13A9, MSG.HI = $13 and 
MSG.LO = $A9. 

MSGPTR is some zero-page pointer. It may be anywhere in the zero page. If the 
calling program does not have to preserve MSGPTR, it can print the message to the 
screen with the following code: 



JSR TVT.ON Select TVT as an output device. (Any other currently 

selected output device will echo the screen output.) 

LDA #MSG.LO Set MSGPTR 

STA MSGPTR so it points 

LDA #MSG.HI to the start 

STA MSGPTR +1 of the message. 

LDX #MSGPTR Set X register so it points to MSGPTR. 

JSR PR.MSG Print the message to all currently selected output 

devices. 



If the calling program must preserve MSGPTR, it will have to save MSGPTR 
and MSGPTR + 1 before executing the above lines of code and restore MSGPTR and 
MSGPTR +1 after executing the above lines of code. 

That looks like a reasonably convenient calling sequence. So now let's turn our 
attention to PR.MSG itself and develop it so it meets the demands of its callers. 
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Print a Message 



PR.MSG 



LOOP 



NEXT 



MSGEND 



TEMP.X 



STX TEMP.X 

LDA 1,X 

PHA 

LDA 0,X 

PHA 

LDX TEMP.X 

LDA (0,X) 
CMP #ETX 
BEQ MSGEND 
INC 0,X 
BNE NEXT 
INC 1,X 
JSR PR.CHR 

CLC 

BCC LOOP 

PLA 

STA 0,X 

PLA 

STA 1,X 

RTS 

.BYTEO 



Save X register, which specifies message 

pointer. 

Save message pointer. 



Restore original value of X, so it points 

to message pointer. 

Get next character from message. 

Is it the end of message indicator? 

If so, handle the end of the message... 

If not, increment the message pointer 

so it points to the next 

character in the message. 

Send the character to all currently 

selected output devices. 

Get next character 

from message. 

Restore message pointer. 



Return to caller, with MSGPTR pre- 
served. 

This data cell is used to preserve the ini- 
tial value of X. 



Print the Following Text 

Even more convenient than PR.MSG would be a routine that doesn't require 
the caller to set any pointer or register in order to indicate the location of a message. 
But if no pointer or register indicates the start of the message, how can any 
subroutine know where the message starts? 

It can look on the stack. 

Why not have a subroutine, called Print-the-Following, which prints the 
message that follows the call to Print-the-Following. Since Print-the-Following is 
longer than six characters, let's shorten its name to "PRINT:", letting the colon in 
"PRINT:" suggest the phrase "the following." A calling program might then print 
"HELLO" with the following lines of code: 
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JSR TVT.ON 

JSR PRINT: 

.BYTE TEX 

.BYTE "HELLO" 

.BYTE ETX 

(6502 code follows the ETX) 



Select TVT as an output device. (Other currently 
selected output devices will echo the screen output.) 



Whenever the 6502 calls a subroutine, it pushes the address of the subroutine's 
caller onto the stack. This enables control to return to the caller when the subroutine 
ends with an RTS, because the 6502 knows it can find its return address on the stack. 
The subroutine PRINT: can take advantage of this fact by pulling its own return ad- 
dress off the stack, and using it as a pointer to the message that should be printed. 
When it reaches the end of the message, it can place a new return address on the 
stack, an address that points to the end of the message. Then PRINT: can execute an 
RTS. Control will then pass to the 6502 code immediately following the ETX at the 
end of the message. The source code for PRINT: follows: 



PRINT: 



LOOP 



ENDIT 



PLA 


Pull return address from 


TAX 


stack and save it in 


PLA 


registers X and Y. 


TAY 




JSR PUSHSL 


Save the select pointer, because we're 




going to use it as a text pointer. 


STX SELECT 


Set SELECT = return address. 


STY SELECT +1 




JSR INC.SL 


Increment SELECT pointer so it points 




to TEX character. 


JSR INC.SL 


Increment select pointer so it points to 




the next character in the message. 


JSR GET.SL 


Get character. 


CMP #ETX 


Is it end of message indicator? 


BEQ ENDIT 


If so, adjust return address and return. 


JSR PR.CHR 


If not, print the character to all current- 




ly selected devices. 


CLC 


Then loop to get 


BCC LOOP 


next character... 


LDX SELECT 




LDY SELECT +1 
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JSR POP.SL 


Restore select pointer to its original 




value. 


TYA 


Push address 


PHA 


of ETX 


TXA 


onto the stack. 


PHA 




RTS 


Return (to byte immediately following 




ETX). 



Saving and Restoring the SELECT Pointer 

Now that a number of subroutines are accessing the contents of memory with 
the SELECT utilities (GET.SL, PUT.SL, INC.SL and DEC.SL) we should provide yet 
another pair of SELECT utilities to enable the subroutines to save and restore the 
SELECT pointer. With such save and restore functions, any subroutine can use the 
SELECT pointer to access memory, without interfering with the use of the SELECT 
pointer by other subroutines. PUSHSL will push the SELECT pointer onto the stack 
and POP.SL will pop the SELECT pointer off the stack. PUSHSL and POP.SL will 
each preserve X,Y, and the zero page. 



Save Select Pointer 
(Preserving X,Y, and the Zero Page) 



PUSHSL 



PLA 

STA RETURN 

PLA 

STARETURN+1 

LDA SELECT + 1 

PHA 

LDA SELECT 

PHA 

LDA RETURN + 1 

PHA 

LDA RETURN 

PHA 

RTS 



Pull return address from stack and 
store it temporarily in RETURN. 

Push select pointer onto stack. 



Push return address back onto stack. 



Return to caller. (Caller will find select 
pointer on top of the stack.) 
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Restore Select Pointer 
(Preserving X,Y, and the Zero Page) 

POP.SL PLA Save return address temporarily. 

STA RETURN 

PLA 

STA RETURN -hi 

PLA Restore select pointer from stack. 

STA SELECT 

PLA 

STA SELECT +1 

LDA RETURN +1 Place return address back on stack. 

PHA 

LDA RETURN 

PHA 

RTS Return to caller. 

RETURN .WORD This pointer is used by PUSHSL and 

POP.SL to preserve their return ad- 
dresses. 



Conclusion 

With the print utilities presented in this chapter, it should be easy to write the 
character-output portions of many programs, making it possible for calling pro- 
grams to select any combination of output devices and to send individual characters, 
bytes, or complete messages to those devices. The calling programs will be com- 
pletely insulated from the particular data representations used by the print utilities. 
The calling programs do not need to know the nature or location of the output- 
device flags or the addresses of the output vectors; they need only know the ad- 
dresses of the print utilities. 

Similarly, although the print utilities use subroutines that operate on the 
SELECT pointer, the print utilities themselves never access the SELECT pointer 
directly. They are completely insulated from the nature and location of the SELECT 
pointer. As long as they know the addresses of the SELECT utilities, the print 
utilities can get the currently selected byte, select the next or the previous byte, save 
the SELECT pointer onto the stack, and restore the SELECT pointer from the stack. 
If at some point we should implement a different representation of "the currently 
selected byte," we need only change the SELECT utilities; the print utilities, and all 
other programs which use the SELECT utilities need never change. 

Insulating blocks of code from the internal representation of data in other 
blocks of code makes all the code much easier to maintain.The following print 
utilities are available to external callers: 
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CHARS 

CR.LF 

CR.LFS 

PR.BYT 

PR.CHR 

PR.MSG 

PRINT: 
SPACE 
SPACES 



Send the character in the accumulator "X" times to all current- 
ly selected output devices. 

Cause a new line on all currently selected devices. 
Cause ''X" new lines on all currently selected devices. 
Print the byte in the accumulator, in hexadecimal representa- 
tion. 

Print the character in the accumulator on all currently selected 
devices. 

Print the message pointed to by a zero-page pointer specified 
byX. 

Print the message following the call to "PRINT:". 
Send a space to all currently selected output devices. 
Send "X" spaces to all currently selected output devices. 



Exercises 



1) Write a printer test program, which sends every possible character from $00 
to $FF to the printer. 

2) Rewrite the printer test program so that it prints just one character per line. 
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Chapter 8: 

Two Hexdump Tools 



The Visible Monitor allows you to examine memory, but only 1 byte at a time. 
You'll quickly feel the need for a software tool that will display or print out the con- 
tents of a whole block of memory. This is especially useful if you wish to debug a 
program. You can't debug a program if you're not sure what's in it. A hexdump tool 
will show you what you've actually entered into the computer, by displaying the 
contents of memory in hexadecimal form. 

I've developed two kinds of hexdump programs, each for a different type of 
output device. When I'm working at the keyboard, I want a hexdump routine that 
dumps from memory to the screen, a line or a group of lines at a time. But for 
documentation and for program development or debugging away from the 
keyboard, I want a hexdump routine that dumps to a printer. 

Most of the code required to dump from memory will be the same, whether we 
direct output to the screen or to the printer. However, there are enough differences 
between the two output devices that it is convenient to have two hexdump pro- 
grams, one for the screen and one for the printer. Let's call them TVDUMP and 
PRDUMP. 



TVDUMP 

TVDUMP should be very responsive: when you are using the Visible Monitor, 
a single keystroke should cause one or more lines to be dumped to the screen. But 
how can TVDUMP know what lines you want to dump? Since the Visible Monitor 
allows you to select any address by rolling hexadecimal characters into the address 
field or by stepping forward and backward through memory, we might as well have 
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TVDUMP dump memory beginning with the currently selected address. 

Since we're basing TVDUMP on the Visible Monitor's currently selected ad- 
dress, we can use some of the Visible Monitor's subroutines to operate on that ad- 
dress. GET.SL will get the currently selected byte, and INC.SL will increment the 
SELECT pointer, thereby selecting the next byte. The print utilities TVT.ON and 
PR. BYT will let us select the screen as an output device and print the accumulator in 
hexadecimal representation. 

We ought to have TVDUMP provide two dumps that will be easily readable, 
even on the narrow confines of a twenty-two or forty-column display. That means 
we can't display a full hexadecimal line (16 bytes) on one screen line if we want to 
have a space between each byte. We can provide hexdumps that split each hexa- 
decimal line into two or four screen lines. See outputs A and B in figure 8.1. 



Output A: 

0200 HH HH HH HH HH HH HH HH HH 
0208 HH HH HH HH HH HH HH HH HH 

0210 HH HH HH HH HH HH HH HH HH 
0218 HH HH HH HH HH HH HH HH HH 

32 columns 



Output B: 



0200 


HH 


HH 


HH 


HH 


0204 


HH 


HH 


HH 


HH 


0208 


HH 


HH 


HH 


HH 


020C 


HH 


HH 


HH 


HH 


0210 


HH 


HH 


HH 


HH 


0214 


HH 


HH 


HH 


HH 


0218 


HH 


HH 


HH 


HH 


021C 


HH 


HH 


HH 


HH 




-17 


columns — 





Figure 8.1: Two TVDUMP formats. 



TWO HEXDUMP TOOLS 99 



One way to provide such a hexdump is shown by the flowchart in figure 8.2. 
Using this flowchart as a guide, let's develop source code to perform the TVDUMP 
function: 



C START J 



PRINT CURRENTLY 
SELECTEO ADDRESS 



PRINT A SPACE 



GET CURRENTLY 
SELECTED BYTE 



SELECT NEXT BYTE 



SPACE ONCE 



DID WE JUST 
PRINT A BYTE 



I 



• WHOSE ADDRESS 

I ENDED IN 7 OR F I 

I I 












YES 




FORCE A NEW LINE 













Figure 8.2: Flowchart of the screen Hexdump Program. 
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CONSTANTS 



CR = SOD 
LF = $0A 



Carriage return. 
Line feed. 



GET.SL 
INC.SL 

PR.BYT 

SELECT 



REQUIRED SUBROUTINES 

Get currently selected byte. 

Increment the pointer that specifies the currently selected 

byte. 

Print the accumulator to currently selected devices, in 

hexadecimal representation. 

Pointer to currently selected address. 



COUNTR 
MASK 



.BYTEO 
.BYTE 7 



VARIABLES 



This byte counts the number of lines 

dumped by TVDUMP. 

For output A (suitable for 

C-64). Use ".BYTE 3" for 

output B (suitable for 

VIC-20). 



TVDUMP 



TVDUMP 



DUMPLN 
DMPBYT 



JSR TVT.ON 

LDA#4 
STA COUNTR 
LDA SELECT 
AND #$F0 
STA SELECT 
JSR PR.ADR 
JSR SPACE 
JSR SPACE 
JSR DUMPSL 
JSR INC.SL 



Select TVT as an output device. 

(Other devices will echo the dump.) 

Set COUNTR to the number of lines 

to be dumped by TVDUMP. 

Set SELECT to beginning 

of a hex line (16 bytes) 

by zeroing 4 LSB in SELECT. 

Print the selected address. 

Print a space. 

Print a space. 

Dump currently selected byte. 

Select next address by incrementing 

select pointer. 
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IFDONE 



LDA SELECT 
AND MASK 
BNE DMPBYT 
JSR CR.LF 

LDA SELECT 

AND#$0F 
BNE IFDONE 
JSR CR.LF 
DEC COUNTR 
BNE DUMPLN 
JSR TVTOFF 
RTS 



Is it the beginning of a new 

screen line? 

If not, dump next byte... 

If so, advance to a new line on the 

screen. 

Does this address mark the beginning of 

a new hexadecimal line? 

(4 LSB of SELECT = 0?) 

If so, skip a line on the screen. 
Dumped last line yet? 
If not, dump next line. 
Deselect TVT as an output device. 
Return to caller. 



DUMP CURRENTLY SELECTED BYTE 

This subroutine gets the currently selected byte (the byte pointed to by 
SELECT) and prints it in hexadecimal format on all selected devices. 



DUMPSL JSR GET.SL Get currently selected byte. 

JSR PR.BYT Print it in hexadecimal format. 

RTS Return to caller. 



PRINT ADDRESS 

This subroutine prints, on all selected devices, the currently selected address (ie: 
the value of the SELECT pointer). 



PR.ADR 



LDA SELECT +1 
JSR PR.BYT 
LDA SELECT 
JSR PR.BYT 
RTS 



Get the high byte of SELECT... 
...and print it in hexadecimal format. 
Get the low byte of SELECT... 
...and print it in hexadecimal format. 
Then return to caller. 
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PRDUMP 



With the subroutine presented thus far in this chapter, we can dump to the 
screen just by calling TVDUMP. But what if we want to print a hexdump? Is a hex- 
dump program that prints any different from one that dumps to the screen? Can we 
simply select the printer instead of the TVT and leave the rest of the code the same? 

We could. But then we wouldn't be taking full advantage of the printer. 
TVDUMP produces an output that is easily read within the twenty-two or forty col- 
umns of a video display. Most printers can output sixty-four columns or more. We 
should take advantage of the extra width offered by a printer. 

We should also recognize the difference in responsiveness between a screen and 
a hard-copy device. When I'm using a screen-based hexdump, I don't mind hitting a 
single key every time I want some lines dumped to the screen. But with a printing 
hexdump, I don't want to strike a key repeatedly to continue the dump. I don't mind 
striking a number of keys at the beginning in order to specify the memory to be 
dumped, but once I've done that I don't want to be bothered again. I want to set it 
and forget it. 

When called, a printing hexdump program should announce itself by clearing 
the screen and displaying an appropriate title (eg: "PRINTING HEXDUMP"). Then 
it should ask you to specify the starting address and the ending address of the 
memory to be dumped. 

Once it knows what you want to dump, PRDUMP should print a hexdump of 
the specified block of memory. For your convenience, PRDUMP should tell you 
what block of memory it will dump; then it should provide a header for each column 
of data and indicate the starting address of each line of data. (See the "D" appen- 
dices.) 

Using the flowchart of figure 8.3 as a guide, we can write source code for the 
top level of the PRINTING HEXDUMP: 



Figure 8.3: To print a Hexdump. 



C START J 


y 
















OUTPUT HEADER 
LINE 




CLEAR SCREEN AND 
DISPLAY TITLE 


















i 


'^ 






SET STARTING 
ADDRESS OF MEMORY 
TO BE DUMPED 












DUMP ONE 
HEXADECIMAL LINE 














SET ENDING 
ADDRESS OF MEMORY 
TO BE DUMPED 


^DUt 
/ED l 

NXINE 


^tV NO 


YET/ 






|YES 










PRINT RAN 
ORY TO BE 


GE OF MEM- 
DUMPED. 


C RETURN J 



^ 
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PRDUMP JSR TITLE 

JSR SETADS 



JSR GOTOSA 
JSR PR.ON 

JSR HEADER 
HXLOOP JSR PRUNE 



BPL HXLOOP 
JSR CR.LF 
JSR PR.OFF 
RTS 

TITLE JSR CLR.TV 

JSR TVT.ON 
JSR PRINT: 

.BYTE TEX 

.BYTE CR, 'PRINTING ' 
.BYTE 'HEXDUMP ',CR 
.BYTE LF,LF, 
.BYTE ETX 
RTS 



Display the title. 

Let user set start address and end ad- 
dress of memory to be dumped. 
(SETADS returns with SELECT =EA, 
the end address.) 

Set SELECT = S A, the starting address. 
Select printer as a output device. (Other 
selected devices will echo the dump.) 
Output hexdump header. 
Dump one line. (PRLINE returns minus 
if it dumped through ending address; 
otherwise it returns PLUS.) 
Done yet? If not, dump next line. 
If so, go to a new line. 
Deselect printer. 

Return to caller. Specified memory has 
been dumped. 
Clear the screen. 

Select screen as an output device. 
Display "Printing Hexdump" on all 
selected output devices. 
Text string must start with a TEX 
character... 



...and end with an ETX character. 
Return to caller. 



Get Starting, Ending Address 

The printing hexdump program must secure from the user the starting address 
and the ending address of the memory to be dumped. The subroutine, SETADS, will 
perform these functions. It will place an appropriate prompt on the screen ("Set 
Starting Address" or "Set Ending Address") and then allow the user to specify an ad- 
dress. 

Putting a prompt on the screen is easy: just select the TVT by calling TVT.ON, 
call "PRINT:" and follow this call with a TEX (start of text) character, the text of the 
prompt, and then an ETX (end of text) character. How can we allow the user to 
specify an address? We could make a subroutine, called GET ADR, which gets an ad- 
dress by enabling the user to set some pointer. That sounds mighty familiar — that's 
what the Visible Monitor does. Conveniently, the Visible Monitor is a subroutine, 
which returns to its caller when the user presses Q for Quit. Therefore, after putting 
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the appropriate prompt on the screen, SETADS will call the Visible Monitor. When 
the Visible Monitor returns, the SELECT pointer will specify the requested address. 



SET STARTING ADDRESS, ENDING ADDRESS 



SETADS 



SET.EA 



EAHERE 



SAHERE 



JSR TVT.ON 



JSR PRINT: 
.BYTE TEX 
.BYTE CR,LF,LF 
.BYTE 
.BYTE 
.BYTE ETX 
JSR VISMON 

JSR SAHERE 

JSR PRINT: 
.BYTE TEX 
.BYTE CR,LF,LF 
.BYTE 
.BYTE 
.BYTE ETX 
JSR VISMON 

SEC 

LDA SELECT +1 
CMP SA+1 
BCC TOOLOW 
BNE EAHERE 



LDA SELECT 

CMPSA 

BCC TOOLOW 

LDA SELECT +1 

ST A EA+1 

LDA SELECT 

STAEA 

RTS 

LDA SELECT +1 

ST A SA+1 



Select TVT as an output device. All 
other selected output devices will echo 
the screen output. 
Put prompt on the screen: 



'SET STARTING ADDRESS ' 
'AND PRESS "Q".' 

Call the Visible Monitor, so user can 

specify a given address. 

Set starting address equal to address set 

by the user. 

Put prompt on the screen: 



'SET ENDING ADDRESS ' 
'AND PRESS "Q".' 

Call the Visible Monitor, so user can 

specify a given address. 

If user tried to set an 

ending address less than 

the starting address, 

make user do it over. 

If SELECT is greater than SA, set 

EA= SELECT. That will make EA 

greater than SA. 



Set EA=SELECT. 



. . . and return. 
Set SA= SELECT. 
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LDA SELECT 






STASA 






RTS 


...and return. 


TOOLOW 


JSR PRINT: 


Since user set ending address 




.BYTE STX, 


too low, print error message: 




.BYTE CR,LF,LR 






.BYTE 


-ERROR! ' 




.BYTE 


"END ADDRESS LESS ' 




.BYTE 


THAN START ADDRESS, ' 




.BYTE 


WHICH IS ' 




.BYTE ETX 






JSR PR.SA 


Print starting address. ...and let the user 

set 

the ending address again. 




JMP SET.EA 


SA 


.WORD 


Pointer to starting address of memory to 
be dumped. 


EA 


.WORD $FFFF 


Pointer to ending address of memory to 
be dumped. 



Now that the user can set the starting address and the ending address for a hex- 
dump (or for any other program that must operate on a contiguous block of 
memory), we should have utilities that print out the starting address, the ending ad- 
dress, or the range of addresses selected by the user. If the user set $D000 as the start- 
ing address and $D333 as the ending address, we should be able to call one 
subroutine that prints "$D000," another that prints "$D333," and a third that prints 
"$D000 — $D333." 

Let's call these subroutines PR.SA, to print the starting address; PR.EA, to print 
the ending address; and RANGE, to print the range of addresses. 



Print Starting Address 

The following subroutine prints the value of SA, the starting address, in hexa- 
decimal format: 



PR.SA 



LDA #'$ 
JSR PR.CHR 
LDA SA+1 
JSR PR.BYT 
LDASA 
JSR PR.BYT 
RTS 



Print a dollar sign to 
indicate hexadecimal. 
Print high byte of starting address. 

Print low byte of starting address. 
Return to caller. 
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Print Ending Address 

The following subroutine prints the value of EA, the ending address, in hexa- 
decimal format: 



PR.EA LDA #'$ Print a dollar sign to 

JSR PR.CHR indicate hexadecimal. 

LDA EA+1 Print high byte of ending address. 
JSR PR.BYT 

LDA EA Print low byte of ending address. 
JSR PR.BYT 

RTS Return to caller. 



Print Range of Addresses 

RANGE JSR PR.SA Print starting address. 

LDA #'- Print a hyphen. 
JSR PR.CHR 

JSR PR.EA Print ending address. 

RTS Return to caller. 



HEADER 

We want a routine to print an appropriate header for the hexdump. It should 
accomplish two tasks: identify the block it will dump, and print a hexadecimal digit 
at the top of every column of hexdump output. Thus, HEADER should produce the 
output shown between the following lines: 



DUMPING HHHH-HHHH 

0123456789ABCDEF 



Notice the blank line following the line of hexadecimal characters. This will in- 
sure a blank line between the header and the dump itself, making for a more 
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readable output. (See the hexdumps in the D series of appendices which were pro- 
duced with PRDUMP.) 

Here are a few lines of code to print the first line of the header: 



JSR PRINT: 
.BYTE TEX,CR,LF 
.BYTE DUMPING 
.BYTE ETX 
JSR RANGE 
JSR CR.LF 



What about the rest of the header? Since all we want to do is print the hexa- 
decimal digits thru $F, with appropriate spacing between them, the rest of 
HEADER can just be some code to count from to $F, convert to ASCII, and print: 



PRINT HEXADECIMAL DIGITS (Version I) 



HXLOOP 



COLUMN 



LDX#7 
JSR SPACES 
LDA#0 
STA COLUMN 
LDA COLUMN 
JSR ASCII 
JSR PR.CHR 
LDX#2 
JSR SPACES 
INC COLUMN 
LDA COLUMN 
AND #$F0 
BEQ HXLOOP 
LDX#2 
JSR CR.LFS 
RTS 
.BYTEO 



Print seven spaces. 

Initialize column counter 

to zero. 

Convert column counter to 

an ASCII character and 

print it. 

Space twice after the character. 

Increment the column counter. 
Loop if counter not greater 
than $0F. 

Otherwise, skip two lines 

after the header. 

Then return. 

This 1-byte variable is used to count 

from 00 to $0F. 



Version 1 of PRINT HEXADECIMAL DIGITS will work, and in only 49 bytes. 
But that's 49 bytes of code, which among other things must count and branch, and if 
for some reason one of those bytes is wrong, Version 1 of PRINT HEXADECIMAL 
DIGITS will probably go directly into outer space. But we could write PRINT 
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HEXADECIMAL DIGITS in a much more straightforward manner, which, though 
somewhat more costly in terms of memory required, will be more readable and less 

likely to run amuck. 

PRINT HEXADECIMAL DIGITS need only call 'PRINT:", and follow this call 
with a text string consisting of the desired hexadecimal digits. 



PRINT HEXADECIMAL DIGITS (Version 2) 

JSR PRINT: 

.BYTE TEX 

.BYTE ' 01234567 

.BYTE '8 9 A B C D E F 

.BYTE CR,LF,LF 

.BYTE ETX 

RTS 



Version 2 of PRINT HEXADECIMAL DIGITS requires 60 bytes. But it's more 
readable than Version 1 of PRINT HEXADECIMAL DIGITS, and it can be modified 
much more easily: just change the text in the message it prints. You don't have to 
calculate branch addresses or test the terminal condition in a loop. This is just one 
example of a programming problem that may be solved in a computation-intensive 
or a data-intensive manner. 

Where other factors are about equal, I prefer data-intensive subroutines, 
because they're more readable and easier to change. Even in this case, I'm willing to 
pay the extra 11 bytes for a version of PRINT HEXADECIMAL DIGITS that I don't 
have to read twice. Hence, PRINT HEXADECIMAL DIGITS Version 2, and not 
Version 1, will appear in the assembler listing of HEADER in Appendix C5. 



PRLINE 

Clearly, most of the work of PRDUMP will be performed by the subroutine 
PRLINE, which dumps one line of memory to the printer. It will stop when it has 
dumped 16 bytes (one hexadecimal line) or has dumped through the ending address 
specified by the user. 

As we did for TVDUMP, let's use SELECT as a pointer to the first byte that 
must be dumped by PRLINE. When PRLINE is called, it must see if the currently 
selected byte (the byte pointed to by SELECT) is at the start of a hexadecimal line. A 
byte is at the beginning of a hexadecimal line if the 4 LSB (least-significant bits) of its 
address are zero. Thus, $4ED8 is not the start of a hexadecimal line, but $4ED0 is. 

If the currently selected byte is not the beginning of a hexadecimal line, PRLINE 
should space over to the appropriate column for that byte. If the currently selected 



TWO HEXDUMP TOOLS 109 



byte is at the beginning of a hexadecimal line, PRUNE should print the address of 
the currently selected byte and space twice. 

Once it has spaced over to the proper column, PRLINE need only get the cur- 
rently selected byte, print it in hexadecimal format, space once, and then do the 
same for the next byte, until it has dumped the entire line or has dumped the last 
byte requested by the user. 

Figure 8.4 gives a flowchart for the following routine: 





C START J 












ADVANCE PRINTHEAD 
TO A NEW LINE 














PRINT SELECTED 
ADDRESS 














SPACE TWICE 


Figure 8.4: 












SPACE OVER TO COLUMN 
FOR FIRST BYTE TO 
BE DUMPED 






-' 


i 












DUMP SELECTED BYTE 














SELECT NEXT BYTE 






/dum 
/last BY 


ped\v 

TE YET^Sv 


YES 




^v (SELECT 


= EA?) J~~ 

> ^r 

NO 

hed\ 

E? x^ 






v^FINIS 
y/^ LIN 


f RET 
\^ Mil* 

(ENTIRE 
DUMPEC 

YES 


URN A 
JUS J 

BLOCK 


\ (4LSB 
X V SELEC 


OF >— 








jNO 


f RETURN ^\ 
V^ PLUS J 

(LINE DUMPED; 




SPACE 


BLOCK NOT 
FINISHED YET) 
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PRUNE 



PRUNE 



LOOP 



COL.OK 



NOT.EA 



EXIT 



JSR CR.LF 
LDA SELECT 
PHA 

AND#$0F 
STA COLUMN 



PLA 

AND #$F0 
STA SELECT 
JSR PR.ADR 
LDX#3 
JSR SPACES 
LDA COLUMN 
BEQ COL.OK 
LDX#3 
JSR SPACES 
JSR INC.SL 
DEC COLUMN 
BNE LOOP 
JSR DUMPSL 
JSR SPACE 
JSR NEXTSL 



BMI EXIT 

LDA SELECT 

AND#$0F 

CMP#0 

BNE COL.OK 
RTS 



Advance printhead to a new line. 

Determine starting 

column 

for this dump. 

Now COLUMN holds the number of the 

column in which we will dump the first 

byte. 

Set SELECT pointer to 

beginning of a hexadecimal line. 

Print the selected address. 

Space three times — to the 

first column. 

Do we dump from the first column? 

If so, we're at the correct column now. 

If not, space three 

times for each byte not 

dumped. 



Dump the currently selected byte. 

Space once. 

Select the next byte in memory, unless 

we've already dumped through the end 

address. 

(MINUS means we've dumped through 

the end address.) 

Dumped entire line7 

(4 LSB of SELECT = 0?) 

If so, we've dumped the entire line. If 

not, 

select the next byte and dump it... 

PRLINE returns MINUS, with A=$FF, 

if it dumped through ending address. 

Otherwise it returns PLUS, with A=0. 



Select Next Byte 

NEXTSL tests to see if SELECT is less than the ending address. If so, it hv 
crements SELECT and returns PLUS (with zero in the accumulator). If not, it 
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preserves SELECT and returns MINUS (with $FF in the accumulator). 



NEXTSL 



SL.OK 



NO.INC 





NEXTSL 


SEC 


Prepare to compare. 


LD A SELECT +1 


Is high byte of SELECT less than 


CMPEA+1 


high byte of end address (EA)? 


BCC SL.OK 


If so, SELECT is less than EA, so it may 




be incremented. 


BNE NO.INC 


If SELECT is greater than EA, don't 




increment SELECT. 




SELECT is in the same page as EA, 


SEC 


prepare to compare low bytes: 


LDA SELECT 


Is low byte of SELECT less than 


CMPEA 


low byte of EA? 


BCS NO.INC 


If not, don't increment it. 


JSR INC.SL 


Since SELECT is less than EA, we may 




increment it. 


LDA#0 


Set "incremented" return code and 


RTS 


return. 


LDA #$FF 


Set "not incremented" return code 


RTS 


and return. 



Go to Start of Block 

GOTOSA sets SELECT = SA, thus selecting the first byte in the block defined 
by SA and EA: 



GOTOSA 



LDASA 
STA SELECT 
LDASA+1 
STA SELECT + 1 
RTS 



Set SELECT 
equal to 

START ADDRESS 
of block. 



Now the two hexdump tools are complete. You may invoke either tool directly 
from the Visible Monitor by displaying the start address of the given hexdump tool 
and pressing "G." This will work fine for PRDUMP: you'll get a chance to set the 
starting address and the ending address that you want to dump, and then you'll see 
the dump on both the printer and the screen. If you start TVDUMP with a "G" from 
the Visible Monitor, you'll only get a dump of TVDUMP itself. You won't be able to 
use TVDUMP to dump any other location in memory. Why? Because TVDUMP 
dumps from the displayed address, and to start any program with a "G" from the 
Visible Monitor, you must first display the starting address of that program. Prob- 
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ably you'd like to be able to use TVDUMP to dump other areas in memory. To do 
so, you must assign a Visible Monitor key (eg: "H") to the subroutine TVDUMP, so 
that the Visible Monitor will call TVDUMP whenever you press that key. See 
Chapter 12, Extending the Visible Monitor. 
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Chapter 9: 



A Table-Driven Disassembler 



With the Visible Monitor you can enter object code into your computer. With 
hexdump tools you can dump that object code to the screen or to a printer. 
However, you still can't be sure you've entered the instructions you intended to 
enter unless you refer back and forth from your hexdump to Appendix A4, The 6502 
Opcode List. You must verify that every opcode you entered is for the instruction 
and the addressing mode that you had intended. You must count forward or 
backward in hexadecimal to make sure that the operands in your branch instruc- 
tions are correct. If you entered one opcode or operand incorrectly, then even 
though your handwritten program may be correct, the version in your computer's 
memory will be wrong. 

A disassembler (the opposite of an assembler) can make your life a lot easier by 
displaying or printing the mnemonics represented by the opcodes you entered into 
your computer, and by showing you the actual addresses and addressing modes 
represented by your operands. The disassembler can't know that address $FB has 
the label "TV.PTR," but it can let you know that a given instruction operates on ad- 
dress $FB. 

A disassembled line includes the following fields: 



Field Field 

Number Description 

1. Mnemonic. 

2. Operand. 

3. Address of opcode. 

4. Opcode in hexadecimal. 
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5. First byte of operand (if present) in hexadecimal. 

6. Second byte of operand (if present) in hexadecimal. 



Here's a disassembled line, with each of the fields numbered: 



1 


2 


3 


4 


5 


6 


(Field Numbers) 


JSR 


0400 


08AC 


20 


00 


04 


(Disassembled Line) 



As with hexdump tools, I find it convenient to have two disassemblers: one for 
the screen and one for the printer. The screen-oriented disassembler should direct a 
certain number of disassembled lines to the screen whenever it is called. On the other 
hand, the printing disassembler should get a starting address and an ending address 
from the user and print a continuous disassembly of that portion of memory. As 
before, when I direct output to a printer I want to set it and forget it. 

Whether we disassemble to the screen or to a printer, we will disassemble one 
line at a time. How can a program disassemble a line? The same way a person does. 
You look at an opcode in memory and then consult a table such as Appendix A4 to 
determine the operation represented by that opcode. Each operation has two at- 
tributes, a mnemonic and an addressing mode. The procedure is simple. Write the 
mnemonic; then, from the addressing mode determine whether this opcode takes no 
operand, a 1-byte operand, or a 2-byte operand. If it takes an operand, look at the 
next byte or two in memory and then write the operand for the mnemonic. 

Thus, if you wish to disassemble object code from some place in memory, and 
you find an $8D at that location, you can determine from Appendix A6 that $8D 
represents "store accumulator, absolute mode." Therefore, you'll write: "STA," 
which is the mnemonic for store the accumulator. 

The absolute mode requires a 2-byte operand, so you'll look at the 2 bytes 
following the $8D. If $36 follows the $8D and is itself followed by $D0, then the 
disassembled line will look like this: 



STA $D036 
That's a lot easier to read than the original 3 bytes of object code: 

8D 36 DO 
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DISASSEMBLY 



JSR 0400 

JSR 04A0 

LDA (0021),Y 

CLC 

BCC 1E00 



1E00 
1E03 
1E06 



20 
20 
Bl 



1E08 18 
1E09 90 



00 
AO 
21 

F5 



04 
04 



HEXDUMP 

0123456789ABCDEF 
1E00 20 00 04 20 AO 04 Bl 21 18 90 F5 

Figure 9.1: Disassembly and hexdump of the same object code. 



TO DISASSEMBLE ONE LINE: 



GET OPCODE 



WRITE DOWN 
ITS MNEMONIC 



LOOK UP ITS 
ADDRESSING MODE 



WRITE DOWN 
ITS OPERAND 



FINISH THE LINE 

BY WRITING, IN HEX, 

THE BYTE(S) 

WE JUST DISASSEMBLED 



( RETURN J 



Figure 9.2: Algorithm for disassembling one line of code. 
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That looks pretty simple. We can use the SELECT pointer to indicate the cur- 
rent byte within memory, and we'll assume that lower-level subroutines exist or will 
exist to do the jobs required by DSLINE, which disassembles one line. With those 
assumptions, we can write source code for DSLINE: 



DISASSEMBLE ONE LINE 

DSLINE JSR GET.SL Get currently selected byte. 

PHA Save it on stack. 

JSR MNEMON Print the mnemonic represented by that 

opcode. 

JSR SPACE Space once. 

PLA Restore opcode to accumulator. 

JSR OPERND Print the operand required by that op- 

code. 

JSR FINISH Finish the line by printing fields 3 thru 

6. 

JSR NEXTSL Select next byte. 

RTS Return to caller, with SELECT pointing 

at the last byte of the operand (or at the 
opcode, if it was a 1-byte instruction). 



Print Mnemonic 

We need a subroutine called MNEMON which prints the three-letter mnemonic 
for a given opcode. How can MNEMON do this? How do we do it? We look it up in 
a table such as Appendix A4. We could have a similar table in memory and then 
have MNEMON sequentially look up from the table the three characters comprising 
the desired mnemonic. That would require a 3-byte mnemonic for each of 256 possi- 
ble opcodes: a 758-byte table. That's a lot of memory! Perhaps if we organize our 
data better we'll need less memory. 

For example, why include the same mnemonic more than once in the table? 
Eight different opcodes use the mnemonic LDA; why should I use up 24 bytes to 
store "LDA" eight times? We could have a table of mnemonic names, which is 
nothing more than an alphabetical list of the three-letter mnemonics. There are only 
fifty-six different mnemonics; if we add one pseudo-mnemonic, "BAD," to mean 
that a given opcode is not valid, then we still have only fifty-seven mnemonics. The 
table of mnemonic names will therefore require only 171 bytes. 

If you have a given opcode, how can you know which mnemonic in the table of 
mnemonic names corresponds to your opcode? A mnemonic code is some number 
that uniquely identifies a given mnemonic. Let's assume that we have a table of 
mnemonic codes which gives the mnemonic code for each possible opcode. 
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Now you can look up in the table of mnemonic codes the mnemonic code cor- 
responding to a given opcode, and then use the mnemonic code as an index to the 
table of mnemonic names. The three sequential characters located in the table of 
mnemonic names will comprise the mnemonic for your original opcode. 

This method requires not one but two tables. The two together, however, re- 
quire considerably less memory than our first table did. The table of mnemonic 
codes will be 256-bytes long, since it must have an entry for every possible opcode, 
including invalid ones. The table of mnemonic names, on the other hand, will be 
only 171-bytes long, so the two tables together require only 427 bytes. That's 331 
bytes or 43 percent less memory than our first table required. 

Space saved in tables may not be worth it if large or complicated code is re- 
quired as an index to those tables, but in this case the code is quite simple: 



MNEMON 


LDX #3 
STX LETTER 




TAX 

LDA MCODES,X 




TAX 


MNLOOP 


LDA MNAMES,X 




STX TEMP.X 




JSR PR.CHR 


TEMP.X 
LETTER 


LDX TEMP.X 

INX 

DEC LETTER 

BNE MNLOOP 

RTS 

.BYTEO 

.BYTE 



There are three letters in a mnemonic. 
We'll keep track of the letters by count- 
ing down to zero. 

Prepare to use the opcode as an index. 
Look up the mnemonic code for that op- 
code. (MCODES is the table of 
mnemonic codes.) 

Prepare to use that mnemonic code as 
an index. 

Get a mnemonic character. (MNAMES 
is the list of mnemonic names.) 
Save X register (since printing will 
almost certainly change the X register). 
Print the character to all currently 
selected devices. 

Restore X register to its previous value. 
Adjust index for next letter. 
If three letters not yet printed, 
loop back to handle the next one. 
Otherwise, return to caller. 



As you can see, MNEMON requires only 30 bytes of code in machine language: 
2 bytes to hold variables and 427 bytes for the two tables (MNAMES and 
MCODES). The entire subroutine requires 459 bytes, but since most of those bytes 
are data in tables, comparatively little can go wrong with the program. If the wrong 
bytes are keyed into the table of mnemonic names, then the disassembler will print 
one or more incorrect characters in a mnemonic. But MNEMON won't crash! Bad 
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data in means bad data out, but at least MNEMON will run, and a running program 
is a lot easier to correct than one that crashes and burns. 

So again we have a data-intensive, rather than a computation-intensive, 
subroutine. The tables required by MNEMON are included in Appendix C8. 



Print Operand 

Now we come to the tricky part: printing the right operand given an opcode at 
some location in memory. When I disassemble object code by hand, I write the 
operand in two steps: first I determine the addressing mode of the given opcode, and 
then, if that addressing mode takes an operand, I write down the proper operand in 
the proper form. Proper form means including a comma and an X or a Y for every 
indexed instruction, including parentheses in the proper places for indirect instruc- 
tions, and printing out all addresses high byte first, since that makes it easier to read 
an address. 

OPERND (the subroutine that prints an operand for a given opcode in a given 
location in memory) will therefore determine the addressing mode for a given op- 
code, and then call an appropriate subroutine to handle that addressing mode: 



OPERND 

OPERND TAX Look up addressing mode code for 

LDA MODES,X this opcode. 

TAX X now indicates the addressing mode. 

JSR MODE.X Call the subroutine that handles address- 

ing mode "X." 
RTS Return to caller. 



MODES is a table giving the addressing mode for each opcode. 

Note that OPERND can work only if we have a routine called MODE.X which 
somehow transfers control to the subroutine that handles addressing mode "X." 
How can MODE.X do this? One way is to have a table of pointers, in which the Xth 
pointer points to the subroutine that handles addressing mode "X." MODE.X must 
then transfer control to the Xth subroutine in this table. It would be nice if the 6502 
offered an indexed JSR instruction, which would call the subroutine whose address 
is the Xth entry in the table. Unfortunately, the 6502 doesn't offer an indexed JSR in- 
struction, so we'll have to simulate one in software. 

Fortunately, the 6502 does offer an indirect JMP. If a pointer, called SUBPTR, 
can be made to point to a given subroutine, then the instruction JMP (SUBPTR) will 
transfer control to that subroutine. Therefore, MODE.X need only set SUBPTR 
equal to the Xth pointer in a table of subroutine pointers, and with the instruction 
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JMP (SUBPTR), it can transfer control to the Xth subroutine in the table. 



HANDLE ADDRESSING MODE "X" 



MODE.X 



SUBS 



LDA SUBS,X 

STA SUBPTR 

INX 

LDA SUBS,X 

STA SUBPTR + 1 
JMP (SUBPTR) 



Get low byte of Xth pointer in the table 

of subroutine pointers. 

Set low byte of subroutine pointer. 

Adjust index to get next byte. 

Get high byte of Xth pointer in the table 

of subroutine pointers. 

Set high byte of subroutine pointer. 

Jump to the subroutine specified by the 

subroutine pointer. That subroutine will 

then return to the caller of MODE.X, 

not to MODE.X itself. 

This is a table of pointers, in which the 

Xth pointer points to the subroutine that 

handles addressing mode X. 



Disassembler Utilities 

Given MODE.X, OPERND can call the right subroutine to handle any given 
addressing mode. Now all we need are thirteen different subroutines, one for each of 
the 6502's different addressing modes. 

Before writing those subroutines, however, let's think for a moment about what 
they must do, and see if we can't write a few utility subroutines to perform those 
functions. With a proper set of utilities, the addressing mode subroutines themselves 
need only call the right utilities in the right order. 

The following set of utilities seems reasonable: 



• ONEBYT: 

• TWOBYT: 

• RPAREN: 

• LPAREN: 

• XINDEX: 

• YINDEX: 



Print a 1-byte operand. 

Print a 2-byte operand. 

Print a right parenthesis. 

Print a left parenthesis. 

Print a comma and then the letter "X. 

Print a comma and then the letter "Y. 
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Print a 1-Byte Operand: ONEBYT 

ONEBYT JSR INC.SL 

JSR DUMPSL 
RTS 



Advance to byte following opcode. 
Print it in hexadecimal. 
Return to caller. 



Print a 2-Byte Operand: TWOBYT 

A 2-byte operand always specifies an address with the low byte first. To print a 
2-byte operand high byte first, we must first print the second byte in the operand 
and then print the first byte in the operand; each, of course, in hexadecimal format. 



TWOBYT JSR INC.SL Advance to first byte of operand. 

LDA GET.SL Load that byte into accumulator. 

PHA Save it. 

JSR INC.SL Advance to second byte of operand. 

JSR DUMPSL Print it in hexadecimal format. 

PLA Restore the operand's first byte to the 

JSR PR.BYT accumulator, and print it in hexa- 
decimal. 

RTS Return to caller. 



ONEBYT and TWOBYT each leave SELECT pointing at the last byte of the 
operand. 



Print Right, Left Parenthesis: RPAREN, LPAREN 

RPAREN prints a right parenthesis to all currently selected devices. LPAREN 
prints a left parenthesis to all currently selected devices. 



RPAREN LDA #') Load accumulator with ASCII code for 

right parenthesis. 
BNE SENDIT Send it to all currently selected devices. 

LPAREN LDA #'( Load accumulator with ASCII code for 

left parenthesis. 
SENDIT JSR PR.CHR Send it to all currently selected devices. 

RTS Return to caller. 
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Index with Register X: XINDEX 

XINDEX prints a comma and then the letter "X:" 



XINDEX 



LDA #', Load accumulator with ASCII code for a 

comma; then print it to 
JSR PR.CHR all currently selected devices. 

LDA #'X Load accumulator with ASCII code for 

the letter "X;" then print it 
JSR PR.CHR to all currently selected devices. 

RTS Return to caller. 



Index with Register Y: YINDEX 

YINDEX prints a comma and then the letter "Y:" 



YINDEX 



LDA #', Load accumulator with ASCII code for a 

comma; then print it to all 

JSR PR.CHR currently selected devices. 

LDA #T Load accumulator with ASCII code for 

the letter "Y;" then print it 

JSR PR.CHR to all currently selected devices. 

RTS Return to caller. 



So much for the disassembler utilities. Now with a single subroutine call we can 
print a 1-byte or a 2-byte operand (and, of course, we can print a no-byte operand), 
and we can print any of the frequently used characters and character combinations. 
Okay, let's write some addressing mode subroutines: 



Addressing Mode Subroutines 

Because the 6502 has thirteen different addressing modes, we'll need thirteen 
different addressing mode subroutines: 



Subroutine 

ABSLUT 



Addressing Mode 

Absolute 
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ABS.X 


Absolute,X 


ABS.Y 


Absolute, Y 


ACC 


Accumulator 


IMPLID 


Implied 


IMMEDT 


Immediate 


INDRCT 


Indirect 


IND.X 


Indirect,X 


IND.Y 


Indirect,Y 


RELATV 


Relative 


ZEROPG 


Zero Page 


ZERO.X 


Zero Page,X 


ZERO.Y 


Zero Page,Y 



The main job for each subroutine will be to print the operand in the proper 
form. Although a given addressing mode will always have the same number of 
characters in its operand, unfortunately, different addressing modes may have 
operands of different lengths. For example, implied addressing mode has no 
characters in its operand, whereas indirect indexed addressing requires six charac- 
ters in its operand. 

But no matter how many characters appear in an operand, we want to make 
sure that field 3 (the address field) always begins at the same column. Therefore, 
every addressing-mode subroutine will return with A holding the number of 
characters in the operand, with X holding the number of bytes in the operand, and 
with SELECT pointing at the last byte in the operand (or at the opcode, if it was a 
1-byte instruction). Then FINISH can print an appropriate number of spaces before 
printing fields 3 thru 6. 



Absolute Mode: ABSLUT 

To print the operand for an instruction in the absolute mode, we need only 
print a 2-byte operand. Thus, 8D B2 04 will disassemble as: 



STA 04B2 8D B2 04 



ABSLUT JSR TWOBYT 

LDX #2 X holds number of bytes in operand. 

LDA #4 A holds number of characters in 

operand. 
RTS 
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Absolute, X Mode: ABS.X 

To print the operand for an instruction in the absolute, X mode, we must print a 
2-byte operand, a comma, and then an "X:" 



LDAD09A,X BD 9A DO 



ABS.X 



JSR ABSLUT Print the 2-byte operand. 

JSR XINDEX Print the comma and the "X." 

LDX #2 X holds number of bytes in operand. 

LDA #6 A holds number of characters in 

operand. 
RTS Return to caller. 



Abolute, Y Mode: ABS.Y 

To print the operand for an instruction in the absolute, Y mode, we must print a 
2-byte operand, a comma, and then a "Y:" 



ORA02FE,Y 19 FE 02 



ABS.Y 



JSR ABSLUT Print the 2-byte operand. 

JSR YINDEX Print the comma and the "Y." 

LDX #2 X holds number of bytes in operand. 

LDA #6 A holds number of characters in 

operand. 
RTS Return to caller. 



Accumulator Mode: ACC 

To print the operand for an instruction in the accumulator mode, we need only 
print the letter "A:" 



RORA 6A 
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ACC 



LDA #'A Load accumulator with ASCII code for 

the letter A. 
JSR PR.CHR Print it on all currently selected devices. 

LDX #0 X holds number of bytes in operand. 

LDA #1 A holds number of characters in 

operand. 
RTS Return to caller. 



Implied Mode: IMPLID 

Implied mode has no operand, so just return: 

CLC 18 



IMPLID 



LDX#0 
LDA#0 

RTS 



X holds number of bytes in operand. 
A holds number of characters in 
operand. 



Immediate Mode: IMMEDT 

Immediate mode requires a 1-byte operand, which we'll print in hexadecimal 
format. Thus, it should disassemble the two consecutive bytes "A9 41" as follows: 



IMMEDT 



LDA# 


$41 A9 41 


LDA f # 


Print a '#' sign. 


JSR PR.CHR 




LDA #'$ 


Print a dollar sign. 


JSR PR.CHR 




JSR ONEBYT 


Print 1-byte operand in hexadecimal for- 




mat. 


LDX#1 


X holds number of bytes in operand. 


LDA #4 


A holds number of characters in 




operand. 


RTS 


Return to caller. 
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Indirect Mode: INDRCT 

To print the operand for an instruction in the indirect mode, we need only print 
an absolute operand within parentheses. Thus, the three consecutive bytes 
"6C 00 04" will disassemble as: 



JMP (0400) 6C 00 04 



INDRCT 



JSR LPAREN Print left parenthesis. 

JSR ABSLUT Print the 2-byte operand. 

JSR RPAREN Print the right parenthesis. 

LDX #2 X holds number of bytes in operand. 

LDA #6 A holds number of characters in 

operand. 

RTS Return to caller. 



Indirect, X Mode: IND.X 

To print the operand for an instruction in the indirect, X addressing mode, we 
need to print a left parenthesis, a zero-page address, a comma, the letter "X," and 
then a right parenthesis. Thus, the two consecutive bytes "Al 3C" will disassemble 
as: 



LDA(3C,X) A13C 



IND.X 



JSR LPAREN Print a left parenthesis. 

JSR ZERO.X Print a zero-page address, a comma, and 

the letter "X." 
JSR RPAREN Print a right parenthesis. 

LDX #1 X holds number of bytes in operand. 

LDA #6 A holds number of characters in 

operand. 
RTS Return to caller. 
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Indirect, Y Mode: IND.Y 

To print the operand for an instruction in the indirect, Y mode, we must print a 
left parenthesis, a zero-page address, a right parenthesis, a comma, and then the let- 
ter "Y." Thus, the two consecutive bytes "Bl AF" will disassemble as: 



LDA(AF),Y B1AF 



IND.Y 



JSR LPAREN Print a left parenthesis. 

JSR ZEROPG Print a zero-page address. 

JSR RPAREN Print a right parenthesis. 

JSR YINDEX Print a comma and then the letter "Y." 

LDX #1 X holds number of bytes in operand. 

LDA #6 A holds number of characters in 

operand. 

RTS Return to caller. 



Relative Mode: RELATV 

Relative mode can be tricky. A relative branch instruction specifies a forward 
branch if its operand is plus (in the range of 00 to $7F), but it specifies a backward 
branch if its operand is minus (in the range of $80 to $FF). Therefore, in order to 
determine the address specified by a relative branch instruction, we must first deter- 
mine whether the operand is plus or minus, so we can determine whether we're 
branching forward or backward. Then we must add or subtract the least-significant 
7 bits of the operand to or from the address immediately following the operand of 
the branch instruction; the result of that calculation will be the actual address 
specified by the branch instruction. 



RELATV 



JSR INC.SL 
JSR PUSHSL 
JSR GET.SL 
PHA 

JSR INC.SL 



PLA 
CMP#0 



Select next byte in memory. 
Save SELECT pointer on stack. 
Get operand byte. 
Save it on the stack. 
Increment SELECT pointer so it points 
to the opcode following the relative 
branch instruction. (Relative branches 
are relative to the next opcode.) 
Restore operand byte to accumulator. 
Is it plus or minus? 
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FORWRD 



RELEND 



BPL FORWRD 



DEC SELECT + 1 



CLC 

ADC SELECT 
BCC RELEND 
INC SELECT + 1 
STA SELECT 



JSR PR.ADR 
JSR POP.SL 
LDX#1 
LDA #4 

RTS 



If plus, it means a forward branch. 

Since operand byte is minus, we'll be 

branching backward. 

Branching backward is like branching 

forward from a location 256 bytes lower 

in memory. 

Add operand byte to the address 

of the opcode following the 

branch instruction. 

Now SELECT points to the address 
specified by the operand of the relative 
branch instruction. Let's print it. 

Restore SELECT pointer. 

X holds number of bytes in operand. 

A holds number of characters in 

operand. 

Return to caller, with SELECT pointer 

once again pointing to the operand byte 

of the relative branch instruction. 



Zero-Page Mode: ZEROPG 

To print the operand of an instruction that uses the zero-page addressing 
mode, we need only print a 1-byte operand. This will cause the bytes "85 2 A" to be 
disassembled as: 



STA2A 85 2A 



ZEROPG LDA #0 Print two ASCII zeroes to all 

JSR PR.BYT currently selected devices. 

JSR ONEBYT Print the 1-byte operand. 

LDX #1 X holds number of bytes in operand. 

LDA #2 A holds number of characters in 

operand. 

RTS Return to caller. 
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Zero-Page Indexed Modes: ZERO.X, ZERO.Y 

To print the operand of an instruction that uses the zero-page X or zero-page Y 
addressing mode, we need only print the zero-page address, a comma, and then an 
"X" or a "Y." Thus, "B5 6C" will disassemble as: 



LDA6CX B5 6C 

and "B6 53" will disassemble as: 

LDX53,Y B6 53 



ZERO.X JSR ZEROPG Print the zero-page address. 

JSR XINDEX Print a comma and the letter "X." 

LDX #1 X holds number of bytes in operand. 

LDA #2 A holds number of characters in 

operand. 

RTS Return to caller. 

ZERO.Y JSR ZEROPG Print the zero-page address. 

JSR YINDEX Print a comma and the letter "Y." 

LDX #1 X holds number of bytes in operand. 

LDA #2 A holds number of characters in 

operand. 

RTS Return to caller. 



A Pseudo-Addressing Mode for Embedded Text 

Now we have subroutines to disassemble machine code in any of the 6502's 
thirteen legal addressing modes. But what about text embedded in a machine- 
language program? We know that our programs already include text strings, where 
each text string begins with a TEX character ($7F) and ends with an ETX ($FF). The 
disassembler, however, doesn't know anything about embedded text. If we try to 
disassemble a machine-language program that includes embedded text, the 
disassembler will assume that the TEX character, and the text string itself, are 6502 
opcodes and operands; because it doesn't know about text, it will misinterpret the 
text string. 

Wouldn't it be nice if the disassembler could recognize the TEX character for 
what it is, and then print out the text string as text, rather than as opcodes and 
operands? When it has finished printing a text string, the disassembler could then 
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resume treating the bytes following the ETX as conventional 6502 opcodes and 
operands. 

Such behavior is not hard to implement. We need only define a pseudo- 
addressing mode, called TEXT mode, and say that the TEX character is the only op- 
code that has the TEXT addressing mode. Then well write a special addressing mode 
subroutine, called TXMODE, to print operands that are in the TEXT mode. 
TXMODE will print an operand in the TEXT mode by printing the text that follows 
the TEX character and ends with the first ETX character. 

Here's some source code to implement such behavior: 



TXMODE PLA 


Pop return address 


PLA 


to OPERND. 


PLA 


Pop return address 


PLA 


to DSLINE. 


TXLOOP JSR NEXTSL 


Advance past TEX pseudo-opcode. 


BMI TXEXIT 


Return if reached EA. 


JSR GET.SL 


Get the character. 


CMP #ETX 


Is it the end of the text string? 


BEQ TXEXIT 


If so, we've finished disassembling this 




line. 


JSR PR.CHR 


If not, print the character. 


CLC 


Branch back to get 


BCC TXLOOP 


the next character. 


TXEXIT JSR CR.LF 


Advance to a new line. 


JSR NEXTSL 


Advance to next opcode (if SELECT is 




less than EA). 


RTS 


Return to the caller of DSLINE, with 




SELECT at the first opcode following 




the text string. 



Now that we have the desired addressing mode subroutines, we can make up 
the table of addressing mode subroutines: 



SUBS 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



ABSLUT 

ABS.X 

ABS.Y 

ACC 

IMPLID 

IMMEDT 

INDRCT 
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.WORD IND.X 
.WORD IND.Y 
.WORD RELATV 
.WORD ZEROPG 
.WORD ZERO.X 
.WORD ZERO.Y 



Each addressing mode subroutine will return with SELECT pointing at the last 
byte in the instruction, with A holding the number of characters in the operand 
field, and with X holding the number of bytes in the operand (0, 1, or 2). Each ad- 
dressing mode subroutine will return to OPERND, which will finish the line by call- 
ing FINISH. 



Finishing the Line: FINISH 

FINISH must space over to the proper column for field 3, which will hold the 
address of the opcode. Then it must print the address of the opcode and dump 1, 2 or 
3 bytes, as necessary. FINISH will end by advancing the printhead to a new line and 
by advancing SELECT so that it points to the first byte following the disassembled 
line (unless it has disassembled through EA, the ending address, in which case it will 
return with SELECT = EA). FINISH returns PLUS if more bytes must be 
disassembled before EA is reached; it returns MINUS if it disassembled through EA. 



FINISH 



LOOP.l 



SEL.OK 



LOOP.2 



STA OPCHRS 

STX OPBYTS 

DEX 

BMI SEL.OK 

JSR DEC.SL 

DEX 

BPL LOOP.l 

SEC 

LDA ADRCOL 

SBC #4 

SBC OPCHRS 

TAX 

JSR SPACES 

JSR PR.ADR 
JSR SPACE 
JSR DUMPSL 
JSR INC.SL 



Save the length of the operand, 
in characters and in bytes. 
If necessary, decrement the 
SELECT pointer so it 
points to the opcode. 



Space over to the 

column for the address field: 

Operand field started in column 4... 

... and includes OPCHRS characters. 

So now we need X spaces. 

Send enough spaces to reach address 

column. 

Print address of opcode. 

Space once. 

Dump selected byte. 

Select next byte. 
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DEC OPBYTS 




BPL LOOP.2 




JSR DEC.SL 


FINEND 


JSR CR.LF 




RTS 


OPBYTS 


.BYTE 


OPCHRS 


.BYTEO 


ADRCOL 


.BYTE 16 



Completed last byte in instruction? 

If not, do next byte. 

Back up SELECT to last byte in 

operand. 

Advance to a new line. 

Return to caller. 

Number of bytes in operand. 

Number of characters in operand. 

Starting column for address field. 



Now we can disassemble a line. So let's write the disassemblers, one for the 
printer and one for the screen. These routines will have much the same structure as 
TVDUMP and PRDUMP, which direct hexdumps to the printer or to the screen. 



Disassemble to Screen: TV.DIS 



TV.DIS 


LDA DISLNS 




STA LINUM 




LDA #$FF 




STAEA 




STA EA+1 




JSR TVT.ON 


TVLOOP 


JSR DSLINE 




DEC LINUM 




BNE TVLOOP 




RTS 


DISLNS 


.BYTE 5 


LINUM 


.BYTEO 



Initialize line counter with 
number of lines to be disassembled. 
Set end address to $FFFF, 
so NEXTSL will always increment 
the SELECT pointer. 
Select TVT as an output device. (Other 
selected devices will echo the 
disassembly.) 
Disassemble one line. 
Completed last line yet? 
If not, disassemble next line. 
If so, return. 

DISLNS holds number of lines to be 
disassembled by TV.DIS. To disassem- 
ble one line, set DISLNS =1. 
This variable keeps track of the number 
of lines yet to be disassembled. 



Printing Disassembler: PR.DIS 

The printing disassembler (PR.DIS) will announce itself by displaying "PRINT- 
ING DISASSEMBLER" on the screen, but not on the printer. It will then let the user 
set the starting and ending addresses, in the same manner as PRDUMP. When the 
user has specified the block of memory to be disassembled, the PR.DIS will print a 
disassembly of the specified block of memory, echoing its output to the screen. 
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PR.DIS 



PRLOOP 



JSR PR.OFF 
JSR TVT.ON 
JSR PRINT: 
.BYTE TEX 
.BYTE CR,LF 
.BYTE 

.BYTE CR,LF,ETX 
JSR.SETADS 

JSR GOTOSA 
JSR PR.ON 
JSR DSLINE 
BPL PRLOOP 

RTS 



Deselect printer. 
Select TVT. 
Display title: 



PRINTING DISASSEMBLER' 

Let user set starting address 

and end address. 

Set SELECT = Start address. 

Select the printer. 

Disassemble one line. 

If it wasn't the last line, disassemble the 

next one. 

Return to caller. 



With PR.DIS and TV.DIS, you can disassemble any block of memory, direct- 
ing the disassembly to the screen or to the printer. See Chapter 12 for guidance on 
mapping these two disassemblers to function keys in the Visible Monitor. 
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Chapter 10: 

A General MOVE Utility 



Many computer programs spend a lot of time moving things from one place to 
another. Such programs should be able to call a move utility for most of this work. 
A move utility should: 

• Be general enough to move anything of any size from any place in memory 
to anywhere else. 

• Not be upset when the origin block overlaps the destination. 

• Have entry points with input configurations convenient to different callers. 

• Preserve its inputs. 

• Be fast. 

This routine will be called often. A calling program doesn't want to spend all its 
time here. The cost of that speed is size, because well use straight-line, dedicated 
code to handle each of several special cases, but even so this move code will weigh in 
at less than 200 bytes. That's less than three percent of the memory available on a 
system with 8 K bytes of programmable memory. 



Input Configurations 

Different callers may find different input configurations convenient, so let's 
provide more than one entry point, each requiring different parameters to be set. 
The following two subroutine entry points are likely to meet the needs of most 
callers: 



MOV.EA Move a block, defined by its starting address (SA), its ending 
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address (EA), and its destination address (DEST). 
MOVNUM Move a block, defined by its starting address, the number of 

bytes in the block (NUM), and the destination of the block. 



MOV.EA will simply be a "front end" for MOVNUM. It will set NUM = end- 
ing address — starting address of the source block. 

Handling Overlap 

There will be no problem with overlap if we always move from the leading edge 
of the source block — that is, copy up beginning with the highest byte to be moved, 
and copy down beginning with the lowest byte to be moved. This way, if a byte in 
the source block is overwritten it will already have been copied to its destination. 



Going Up? 

To avoid overlap, MOVNUM must determine whether it's copying up or 
down. Therefore, before moving anything it must see if the destination address is 
greater or lesser than the starting address. Then it can branch to MOVE-UP or 
MOVE-DOWN as appropriate. 



Figure 10.1: Top level of block move. 
Flowchart of MOVE.EA and MOV- 
NUM routines. 



f START ) 
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NUMBER • 
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START ADDRESS 




> /XND N V 

v^ADDRESS^s. 
/less THAN >> 






S. START y 

\adoress/ 


YES 






[NO 
./OEST'STARTN 


f REV 

C BEAm co 


JJU) 


S. ? y/ 


YES 




|NO 

^/destN. 

v^less than\ 


/ RET 
, BEARING 
V CO 


URN "N 

OKAY ) 

DE J 


S. START y 
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Using the flowchart of figure 10.1 as a guide, let's write source code for the top 
level of MOV.EA and MOVNUM: 
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GETPTR = 
PUTPTR = GETPTR+2 



This is the input-page pointer. 
This is the output-page pointer. 



MOV.EA 


SEC 

LDX EA+1 

LDAEA 

SBCSA 

STANUM 

BCS MOVE.l 

DEX 

SEC 


Set NUM = EA - SA 


MOVE.l 


TXA 

SBC SA+1 
STA NUM+1 






BCS MOVNUM 


NowNUM = EA - SA. 


ER.RTN 


LDA #ERROR 


If EA less than SA, 




RTS 


return with error code. 


MOVNUM 


LDY#3 


Save the 4 zero-page 


SAVE 


LDA GETPTR,Y 

PHA 

DEY 

BPL SAVE 


bytes we'll use. 




SEC 


Is DEST less than START? 




LDA SA+1 






CMP DEST+1 






BCC MOVEUP 


If so, we'll move down. 




BNE MOVEDN 


If not, well move up. 




LDASA 


SA, destination are in the same 
page. 




CMP DEST 


If SA more than destination, we'll 




BCC MOVEUP 


move down. If SA less than destina- 
tion, 




BNE MOVEDN 


we'll move up. If they are equal, we'll 
return bearing okay code. 


OK.RTN 


LDY#0 


Restore 4 zero-page bytes that were 


RESTOR 


PLA 

STA GETPTR,Y 

INY 


used by the move code. 




CPY#4 


Restored last byte yet? 




BNE RESTOR 


If not, restore next one. If so, 




RTS 


return, with move complete and zero 



NUM 



.WORD 



page preserved. 

This 16-bit variable holds the number of 

bytes to be moved. 
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Optimizing for Speed 

Moving a page at a time is the fastest way to move data, and for large blocks we 
can move most of the bytes this way. Therefore, when moving data we'll move one 
page at a time until there is less than a page to move; then we'll move a byte at a time 
until the entire source block is moved. MOVE-UP and MOVE-DOWN must test to 
see if they have more or less than a page to move, and then branch to dedicated code 
that either moves a page or moves less than a page. 



C MOVE UP j 



SET PAGE POINTERS 
TO HIGHEST PAGE IN 
SOURCE 
DESTINATION BLOCKS 



Figure 10.2: Move a block up. 
Flowchart of the MOVEUP routine. 




-hJ' 



MOVE A PAGE UP, 
STARTING AT THE TOP 



DECREMENT PAGE 
POINTERS 




MOVE LESS THAN A 
PAGE UP, STARTING 
AT THE TOP 



/^RETURN BEAR- A 
^[N6 OKAY CODEj 



MOVE-UP 

Using figure 10.2 as a guide, we can write source code for MOVE-UP: 
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MOVEUP 



NEXT.l 



NEXT.2 



NEXT.3 



LDANUM + 1 
BEQ LESSUP 



More than one page to move? 
If not, move less than a page up. 
To move more than a page, set the page 
pointers GETPTR and PUTPTR to the 
highest pages in the source and destina- 
tion blocks. To do this, treat X as the 
high byte and Y as the low byte of a 
pointer, which we'll call (X,Y). First set 
(X,Y) = NUM - $FF, the relative ad- 
dress of the highest page in the block. 



LDY NUM+1 


Now Y is high byte of block size. 


LDANUM 


Now A is low byte of block size. 


SEC 


Prepare to subtract. 


SBC #$FF. 


Now A is a low byte of (block size — 




$FF.) 


BCS NEXT.l 




DEY 




TAX 


Now (X,Y) = NUM - $FF. 




X is low byte, Y is high byte of NUM — 




$FF. 


STY PUTPTR +1 




TXA 




CLC 


Prepare to add. 


ADCSA 




STA GETPTR 




BCC NEXT.2 




INY 




TYA 




ADC SA+1 




STA GETPTR+1 


Now GETPTR - SA + NUM - $FF 




(the last page in the origin block). 


TXA 




CLC 


Prepare to add. 


ADC DEST 




STA PUTPTR 




BCC NEXT.3 




INC PUTPTR+1 




LDA PUTPTR+1 




ADC DEST+1 




STA PUTPTR+1 


Now PUTPTR = DEST + NUM - $FF 



(the last page in the destination block). 
Now the page pointers (GETPTR and 
PUTPTR) point to the last page in, respec- 
tively, the origin and destination blocks. 
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LDX NUM+1 


Load X with number of pages to m 


PAGEUP 


LDY #$FF 


Move a page up. 


UPLOOP 


LDA (GETPTR),Y 


Get a byte from origin block. 




STA (PUTPTR),Y 


Put it in destination block. 




DEY 


Adjust index for next byte down. 




BNE UPLOOP 


Loop if not the last byte. 




LDA (GETPTR),Y 


Move last byte. 




STA (PUTPTR),Y 






DEC GETPTR+1 


Decrement page pointers. 




DEC PUTPTR+1 






DEX 


Still more than a page to move? 




BNE PAGEUP 


If so, move up another page. 


LESSUP 


JSR LOPAGE 


Set GETPTR, PUTPTR to bottom . 
origin and destination blocks. 




LDYNUM 


Set index to number of bytes to be 
moved. 


SOMEUP 


LDA (GETPTR),Y 
STA (PUTPTR),Y 


Move a byte. 




DEY 


About to move last byte7 




CPY #$FF 






BNE SOMEUP 


If not, move another. 




JMP OK.RTN 


If so, return bearing "OK" code. 


LOPAGE 


LDASA 


Set page pointers to the bottom 




STA GETPTR 


of the origin and destination 




LDA SA+1 


blocks. 




STA GETPTR+1 






LDA DEST 






STA PUTPTR 






LDA DEST +1 






STA PUTPTR+1 






RTS 


Return to caller. 



Move-Down: MOVEDN 

Figure 10.3 shows an algorithm for moving a block of data down through 
memory. 
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f MOVEDN J 



SET PAGE POINTERS TO 
LOWEST PAGE IN SOURCE, 
DESTINATION BLOCKS 




NO 



YES 



MOVE A PAGE DOWN, 
STARTING AT THE 
BOTTOM 



INCREMENT PAGE 
POINTERS 



YES 



Figure 10.3: Move a block down. 
Flowchart of the MOVEDN routine. 




MOVE LESS THAN A PAGE 
DOWN, STARTING AT 
THE BOTTOM 



(RETURN \ 
BEARING OKAY ) 
CODE J 



Using figure 10.3 as a guide, we can write source code for the move-down 
routine: 



MOVEDN JSR LOPAGE 

LDY#0 

LDXNUM+1 
BEQ LESSDN 



PAGEDN 



LDA (GETPTR),Y 
STA (PUTPTR),Y 
INY 



Set page pointers to bottom of origin 

and destination blocks. 

Y must equal zero whether we move 

more or less than a page. 

More than one page to move? 

If not, move less than a page down. 

Move a page down. 

Get a byte from origin block 

and put it in destination block. 

Moved last byte in page? 
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LESSDN 



BNE PAGEDN 

INC GETPTR+1 

INC PUTPTR+1 

DEX 

BNE PAGEDN 

LDY#0 

LDA (GETPTR),Y 

STA (PUTPTR),Y 

INY 

SEC 

CPY NUM 

BCC LESSDN 

JMP OK.RTN 



Increment page pointers. 

Still more than a page to move? 

If so, move another page down. 

Move less than a page down starting at 

the bottom. 

Get a byte from origin... 

and put it in destination block. 

Adjust index for next byte. 

Moved last byte yet? 

If not, move another. 

If so, return to caller, bearing "OK" 

code. 



Speed 

For large blocks of data, most bytes will be moved by the page-moving code: 
PAGE-UP and PAGE-DOWN. Since the processor spends most of its time in these 
loops, let's see how long they will take to move a byte. (Appendix A5, Instruction 
Execution Times, provides information on the number of cycles required for each 
6502 operation.) Ordinarily I would not go into great detail concerning the speed of 
execution of a small block of code, but these two loops form the heart of the move 
utility, because they move most of the bytes in any large block. By making those 
two loops very efficient, we can make the move utility very fast. In fact, these loops 
will let us move blocks bigger than one page, at a rate approaching 16 cycles/byte 
moved. (By way of a benchmark, that's more than twice as fast as the time required 
to move large blocks with MOVIT, a smaller move program published in The First 
Book of KM. * MOVIT, made tiny [95 bytes] to use as little as possible of the KIM's 
limited programmable memory, requires at least 33 cycles/bytes moved.) 



MOVE.EA and MOVNUM are move utilities because they have input con- 
figurations and performance suitable for many calling programs. But they are not 
very convenient to the human user who simply wants to move something. With the 
Visible Monitor and the move utility, you can move something from one place to 



*Butterfield, et al, The First Book of Kim, Rochelle Park, NJ: Hayden 
Book Company, 1977. 
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another, but you have to know what addresses to set and you have to know the ad- 
dress of the move utility itself. 

That's too much for me to remember. I want a too/, which will know the ad- 
dresses and won't require me to remember them. 

When I'm developing programs with the Visible Monitor and I want to move 
some data or code from one place to another, I'd like to be able to call up a move 
tool with a single keystroke - say "M." It's easier for me to remember " Tvl' for 
Move" than it is to remember the address of the move utility and the addresses of its 
inputs. 

Let's say I'm using the Visible Monitor and I press "M." This invokes the move 
tool. The first thing it should do is let me know that it's active. What if I hit the "M" 
key by mistake? The computer should let me know that I've invoked a new pro- 
gram. 

It should put up a title: "MOVE TOOL." Then it should let me specify the start, 
end, and destination addresses of a given block in memory. When these addresses 
are set, the move tool can call MOV.EA, which will actually perform the move, 
based on the addresses set by the user. 

The top level of the move tool is therefore quite simple. Figure 10.4 shows the 
flowchart for the following routine: 



C start j 



CLEAR SCREEN 



DISPLAY TITLE 



GET STARTING 
ADDRESS 



GET ENDING 
ADDRESS 



GET 

DESTINATION 

ADDRESS 



CALL MOV. EA 



C RETURN J 

Figure 10.4: A move tool. Flowchart of MOVER routine. 
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MOVER 



MOVER JSR TVT.ON 
JSR PRINT: 
.BYTE TEX,CR 
.BYTE' MOVE TOOL' 
.BYTE CR,LF,LF 
.BYTE ETX 
JSR SETADS 

JSR SET.DA 
JSR MOV.EA 

RTS 



Select screen as an output device. 
Put a title on the screen. 



Get starting address, 

ending address, and 

destination address from user. 

Move the block specified by those 

pointers. 

Return to caller, with requested block 

moved and with zero page preserved. 



Of course, MOVER can work only if we have a routine that lets the user set the 
destination address. Let's write such a routine, and we'll be all set to move whatever 
we like, to wherever we want it. 



Set Destination Address: SET.DA 



SET.DA JSR TVT.ON 



JSR PRINT: 
.BYTE TEX 
.BYTE CR,LF,LF 
.BYTE 
.BYTE 
.BYTE ETX 
JSR VISMON 



DAHERE 



DEST 



LDA SELECT 
STA DEST 
LDA SELECT +1 
STA DEST+1 
RTS 
.WORD 



Select TVT as an output device. All 
other selected output devices will echo 
the screen output. 
Put prompt on the screen: 



"SET DESTINATION ADDRESS " 
"AND PRESS Q." 

Call the Visible Monitor, so user can 
specify a given address. 
Set destination address equal to 
address set by the user. 



Return to caller. 

Pointer to destination of block to be 

moved. 
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See Chapter 12, Extending the Visible Monitor, to learn how to hook the 
move tool into the Visible Monitor by mapping it to a given key. Then to move 
anything in memory to anywhere else, you need only strike that key and the move 
tool will do the rest. 
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Chapter I I : 

A Simple Text Editor 



With the Visible Monitor you can enter ASCII text into memory by placing the 
arrow under field 2 and striking character keys. But you must strike two keys for 
every character in the message: first the character key, to enter the character into the 
displayed address, and then the space bar, to select the next address. Furthermore, if 
you want to enter an ASCII space or carriage return into memory, you'll have to 
place an arrow under field 1 and enter the hexadecimal representation of the desired 
character: $20 for a space; $0D for a carriage return. Then, of course, you'll have to 
hit the space bar to select the next address, and the RIGHT-ARROW key to move 
the arrow back underneath field 2, so that you can enter the next character into 

memory. 

If you only need to enter up to a dozen ASCII characters at a time, then the Vis- 
ible Monitor should meet your needs. When you need to enter longer messages into 
memory, you'll find yourself wanting a more suitable tool — a simple text editor. 

Text editors come in many different shapes, sizes and formats. A line-oriented 
editor, suitable for creating and editing program source files, requires that you enter 
and edit text a line at a time. Usually each line must be numbered when it is entered; 
then, in order to edit a line, you must first specify it by its line number. 

On the other hand, a character-oriented editor allows you to overstrike, insert, 
or delete characters anywhere in a given string of characters. Character-oriented 
editors are frequently found in word processors for office applications, but don't get 
your hopes up; this chapter will not present software nearly as sophisticated as that 
available in even the humblest of word processors. However, it will present a very 
simple character-oriented editor that will enable you to enter and edit text strings, 
such as prompts, anywhere in memory. 
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Structure 

The text editor will have the three-part structure shown in figure 11.1. From this 
we can write source code for the top level of the text editor: 





INITIALIZE POINTERS 




J' 










OISPLAY 
CURRENT TEXT 










GET A KEYSTROKE 
AND HANOLE IT 









Figure 11.1: Structure of simple text editor. 



EDITOR JSR SETBUF 

EDLOOP JSR SHOWIT 

JSR EDITIT 

CLC 

BCC EDLOOP 



Initialize pointers and variables required 

by the editor. 

Show the user a portion of the text 

buffer. 

Let the user edit the buffer or move 

about within it. 

Loop back to show the current text. 



Look familiar? It should. This is essentially the same structure used in the Vis- 
ible Monitor. It's a simple structure, well-suited to the needs of many interactive dis- 
play programs. 



SETBUF 

The text editor will operate on text in a portion of memory called the text buf- 
fer. Because the editor must be able to change the contents of the text buffer, the buf- 
fer must occupy programmable memory and may not be used for any other pur- 
pose. This exemplifies a problem familiar to programmers: how to allocate memory 
in the most effective manner. Memory used to store a program cannot be used at the 
same time to store text; nor can memory allotted to the text buffer be used for stor- 
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ing programs or variables. 

How do you get five pounds of tomatoes into a four-pound-capacity sack — 
without crushing the tomatoes or tearing the sack? You don't. If you want to store a 
lot of text in your computer's programmable memory, you might not have room for 
much of a text editor. On the other hand, an elaborate text editor, requiring a good 
deal of programmable memory for its own code, may not leave much room in your 
system for storing text. _ 

Therefore, this text editor leaves the allocation of memory for the text buffer to 
the discretion of the user. A subroutine called SETBUF sets pointers to the starting 
and ending addresses of the text buffer. The rest of the editor then operates on the 
text buffer defined by those pointers. 

SETBUF sets the starting and ending addresses of the edit buffer. If you always 
want to enter and edit text in the same buffer, then substitute your own subroutine 
to set the starting and ending addresses to the values you desire. Otherwise, use the 
following version of SETBUF, which lets the user define a new text buffer each time 

it is called. 

For testing purposes, you might even want to set the text buffer completely in- 
side screen memory. This allows you to see exactly what's happening inside the text 
buffer. 



SETBUF 

SETBUF JSR TVT.ON Select TVT. 

JSR PRINT: Display "SET UP EDIT BUFFER." 

.BYTE TEX,CR,LF,LF 

.BYTE 'SET UP EDIT BUFFER' 

.BYTE CR,LF,LF,ETX 
GET ADS JSR SET ADS Let user set starting address and end ad- 

dress of edit buffer. 

JSR GOTOSA Now SELECT = starting address of edit 

buffer. 

RTS Return to caller. 



This version of SETBUF allows the user to set the text buffer anywhere in mem- 
ory, provided that the ending address is not lower in memory than the starting 
address. It returns with the SELECT pointer pointing at the starting address of the 
buffer. 
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SHOWIT 



Now that SETBUF has set the pointers associated with the text buffer let's 
figure out how to display part of that buffer. 

Figure 11.2 shows the simple 3-line display to be used by the text editor "X" 
marks the home position of the edit display. Everything in the edit display is relative 
to the home position. Thus, to move the edit display about on your screen (ie: from 
the top of the screen to the bottom of the screen), you need only change the home 
position, which is set by SHOWIT. 



LINE 1 : 
LINE 2: 
LINE 3: 



SOME CHARACTERS FROM TEXT BUFFER 60 HERE 



MJ HHHH 



Figure 11.2: Three-line display of simple text editor. 



Line 1 is entirely blank. Its only purpose is to separate the text displayed in line 
2 from whatever you may have above it on your screen. 

Line 2 displays a string of characters from the edit buffer. The central character 
in line 2 is the current character. The current character is indicated by an upward- 
pointing arrow as in line 3. The address of the current character is given by the four 
hexadecimal characters represented by "HHHH" in line 3. 

The letter "M" in line 3 shows you where a graphic character will indicate the 
current mode of the editor. 



Modes 

This editor will have two modes: overstrike mode and insert mode. In over- 
strike mode you overstrike, or replace, the current character with the character from 
the keyboard. In insert mode, you insert the keyboard character into the text buffer 
just before the current character. How one sets these modes, a function for the 
subroutine EDITIT, will be discussed later. But SHOWIT must know the current 
mode in order to display the proper graphic in line 3 of the editor display. 

Since we're going to have two modes, let's keep track of the current mode of the 
editor with a 1-byte variable called EDMODE. We'll assign the following values to 
EDMODE: 
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EDMODE = when the editor is in overstrike mode. 
EDMODE = 1 when the editor is in insert mode. 



Any other value of EDMODE is undefined and therefore illegal. If SHOWIT 
should find that EDMODE has an illegal value, then it should set EDMODE to some 
legal default value — say, zero. That would make overstrike the default mode for 
the editor. 

We'll also need two graphics characters, INSCHR and OVRCHR, to indicate in- 
sert and overstrike modes, respectively. In this chapter, the character to indicate a 
given edit mode will simply be the first initial of the mode name: "0" for overstrike 
mode, "I" for insert mode. 



SHOWIT 



SHOWIT 



JSR TVPUSH 
JSR TVHOME 

LDX TVCOLS 
LDY#3 
JSR CLR.XY 
JSR TVHOME 

JSR TVDOWN 
JSR TVPUSH 
JSR LINE.2 
JSR TV.POP 
JSR TVDOWN 
JSR LINE.3 
JSR TV.POP 
RTS 



Save the zero-page bytes we'll use. 

Set home position of the 

edit display. 

Clear 3 rows for the 

edit display. 

Restore TV.PTR to home position of 

edit display. 

Set TV.PTR to beginning of 

line 2 and save it. 

Display text in line 2. 

Set TV.PTR to beginning 

of line 3. 

Display line 3. 

Restore zero-page bytes used. 

Return to caller, with edit display on 

screen, rest of screen unchanged, and 

zero page preserved. 



Of course, SHOWIT can work only if it can call a couple of routines (LINE.2 
and LINE.3) to display lines 2 and 3 of the editor display, respectively. Let's write 
those routines. 
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Display Text Line 

To display the text line, we simply need to copy a number of characters from 
the text buffer to the second line of the editor display. Since the screen is TVCOLS 
wide, we should display TVCOLS number of characters in such a way that the cen- 
tral character in the display is the currently selected character. We can do that if we 
decrement SELECT by TVCOLS/2 times, and then display TVCOLS number of 
characters: 



LINE.2 



LINE.2 



LOOP.l 



LOOP.2 



JSR PUSHSL 

LDA TVCOLS 

LSRA 

TAX 

DEX 

JSR DEC.SL 

DEX 

BPL LOOP.l 

LDA TVCOLS 

STA COUNTR 

JSR GET.SL 

JSR TV.PUT 

JSR TVSKIP 

JSR INC.SL 

DEC COUNTR 

BPL LOOP.2 

JSR POP.SL 

RTS 



Save SELECT pointer. 
Set X equal 
to half the width 
of the screen. 

Decrement SELECT X times. 



Initialize COUNTR. (We're 

going to display TVCOLS characters.) 

Get a character from buffer. 

Put it on screen. 

Go to next screen position. 

Advance to next byte in buffer. 

Done last character in row? 

If not, do next character. 

Restore SELECT from stack. 

Return to caller. 



Display Status Line 

Line 3 of the editor display provides status information: identifying the current 
mode of the editor, pointing at the current character in line 2 of the edit display, and 
providing the address of the current character. 
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LINE.3 



LINE.3 



OVMODE 
TVMODE 



LDA TVCOLS 
LSRA 
SBC #2 
JSR TVPLUS 



LDA EDMODE 

CMP#1 

BNE OVMODE 

LDA #INSCHR 

CLC 

BCC TVMODE 

LDA #OVRCHR 

JSR TV.PUT 

LDA #2 

JSR TVPLUS 

LDA ARROW 
JSR TV.PUT 
LDA #2 
JSR TVPLUS 



LDA SELECT +1 
JSR VUBYTE 
LDA SELECT 
JSR VUBYTE 
RTS 



A = TVCOLS/2 

A = (TVCOLS/2) - 2 

Now TV.PTR is pointing 2 characters to 

the left of center of line 3 of the edit 

display. 

What is current mode? 

Is it insert mode? 

If not, it must be overstrike mode. 

If so, load A with the insert graphic. 



Load A with the overstrike graphic. 
Put mode graphic on screen. 

Now TVPTR is pointing at the center of 
line 3 of the edit display. 
Display an up-arrow here, 
pointing up at the current character. 

Now TV.PTR is pointing at the position 

reserved for the address of the current 

character. 

Display address of current 

character. 



Return to caller. 



We've chosen to define the editor's current character as the character pointed to 
by SELECT. We've already developed some subroutines that operate on the SELECT 
pointer and on the currently selected byte, so we won't have to write many new 
editor utilities; instead, we can use many of the SELECT utilities presented in earlier 
chapters. 



Edit Update 

Now we can display the three lines of the edit display. What else must the editor 
do? Oh, yes: it must let us edit. Here's a reasonably useful, if small, set of editor 
functions: 
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Allow the user to move forward through the message. 

Allow the user to move backward through the message. 

Allow the user to overstrike the current character. 

Allow the user to delete the current character. 

Allow the user to delete the entire message. 

Allow the user to insert a new character at the current character position. 

Allow the user to change modes from insert to overstrike and back again. 

Print the message. 

Allow the user to terminate editing, thus causing the editor to return to its 

caller. 



What keys will perform these functions? I'll leave that up to you by treating the 
editor function keys as variables and keeping them in a table called EDKEYS (see 
Appendix Cll). To assign a given function to a given key, store the character code 
generated by that key in the appropriate place in the table: 



EDITIT 



EDITIT 



JSR GETKEY 
CMP QUITKY 
BNE DO.KEY 
PHA 



JSR GETKEY 
CMP QUITKY 
BNE NOTEND 



ENDEDT PLA 

PLA 

PLA 

RTS 
NOTEND STA TEMPCH 

PLA 

JSR DO.KEY 

LDA TEMPCH 



Get a keystroke from the user. 

Is it the "quit" key? 

If not, do what the key requires. 

Save the key on the stack. If the user 

gives us 2 "quit" keys in a row, we 

should exit the editor. So let's see if 

another QUITKY follows: 

Is this key a "quit" key? 

If not, then this is npt the end of the 

edit session, so we'd better handle both 

of those keys, and in their original 

order. 

End the edit session: 

Pop first "quit" key from stack. 

Pop from stack the return address to 

the editor's top level. 

Return to the editor's caller. 

Save the key that followed the "quit" 

key. 

Pop first "quit" key from stack. 

Handle it. 

Restore to the accumulator the key that 

followed the "quit" key. 
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DO.KEY 



DO.END 
IFNEXT 



IFPREV 



IF.RUB 



IF.PRT 



IFFLSH 



CHARKY 



STRIKE 



CMP MODEKY 

BNE IFNEXT 

DEC EDMODE 

BPL DO.END 

LDA#1 

STA EDMODE 

RTS 

CMP NEXTKY 

BNE IFPREV 

JSR NEXTCH 

RTS 

CMP PREVKY 
BNE IF.RUB 
JSR PREVCH 

RTS 

CMP RUBKEY 

BNE IF.PRT 

JSR DELETE 

RTS 

CMP PRTKEY 

BNE IFFLSH 

JSR PRTBUF 

RTS 

CMP FLSHKY 

BNE CHARKY 

JSR FLUSH 

RTS 



LDX EDMODE 

BEQ STRIKE 

JSR INSERT 

RTS 

JSR PUT.SL 



"DO.KEY" does what the key in the ac- 
cumulator requires: 
Is it the "change mode" key? 
If not, perform the next test. 
If so, change the editor's mode... 



and return. 
Is it the "next" key? 
If not, perform the next test. 
If so, advance the current position by 
one character... 
and return. 

Is it the "previous" key? 
If not, perform the next test. 
If so, back up the current position by 
one character... 
and return. 
Is it the "delete" key? 
If not, perform the next test. 
If so, delete the current character... 
and return. 
Is it the "print" key? 
If not, perform the next test. 
If so, print the buffer... 
and return. 
Is it the "flush" key7 
If not, perform the next test. 
If so, flush all text in the edit buffer... 
and return. 

OK. It's not an editor function key, so it 
must be a regular character key. There- 
fore, if we're in overstrike mode we'll 
overstrike the current character with the 
new character, and if we're in insert 
mode we'll insert the new character at 
the current character position. 
Are we in overstrike mode? 
If so, overstrike the character. 
If not, insert the character... 
and return. 

Put the character into the currently 
selected address, which is the address of 
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INSERT 



NEXT 



ENDINS 



JSR NEXTSL 

RTS 

PHA 

JSR PUSHSL 

LDASA + 1 

PHA 

LDASA 

PHA 

LDAEA+1 

PHA 

LDAEA 

PHA 

JSR SAHERE 

JSR NEXTSL 

BMI ENDINS 

JSR DAHERE 



LDAEA 
BNE NEXT 
DECEA+1 
DECEA 



OPENUP JSR MOV.EA 



PLA 

STAEA 

PLA 

STAEA+1 

PLA 

STASA 



the current character. 

Advance to the next character position, 

and return to caller. 

Save the character to be inserted, while 

we make space for it in the edit buffer... 

Push the address of the current character 

onto the stack. 

Push starting address of the buffer 

onto stack. 



Push ending address of the buffer 
onto stack. 



Set SA = SELECT, so current character 

will be the start of the block we'll move. 

Advance to next character position in 

the text buffer. 

If we're at the end of the buffer, we'll 

overstrike instead of inserting. 

Set DEST = SELECT, so destination of 

block move will be 1 byte above block's 

start address (ie, we'll move a block up 

by 1 byte). 

Decrement end address 

so we won't move text 

beyond the end of 

the text buffer. 

Now the starting address is the current 

character, the destination address is the 

next character, and the ending address is 

one character shy of the last character in 

the buffer. We're ready now to move a 

block. 

Open up 1 byte of space at the current 

character's location, by moving to DEST 

the block specified by SA and EA. 

Restore EA so it points to the last byte 

in the edit buffer. 



Restore SA so it points to the first byte 
in the edit buffer. 
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PLA 

STASA+1 

JSR POP.SL Restore SELECT so it points to the cur- 

rent character. 

PLA Reload the accumulator with the 

character to be inserted. Since we've 
created a 1-byte space for this character, 
we need only overstrike it. 

JSR STRIKE 

RTS Return to caller. 



EDITIT looks like it will do what we want it to do — provided that it may call 
the following (as yet unwritten) subroutines: 



• NEXTCH — Select next character. 

• PREVCH— Select previous character. 

• FLUSH — Flush the buffer. 

• PRTBUF — Print the buffer. 



Let's write them. 



Select Next Character 

We want to be able to advance through the text buffer, but we don't want to be 
able to go beyond the end of the buffer or beyond the end of the message. The end of 
the message will be indicated by one or more ETX (end-of-text) characters. ETX 
characters will fill from the last character in the message to the end of the buffer. So 
if the current character is an ETX, we shouldn't be allowed to advance through 
memory. Or, if the current character is the last byte in the edit buffer, we shouldn't 
be allowed to advance through memory. But if we aren't at the end of our text for 
one reason or another, select the next character by calling the NEXTSL subroutine: 



NEXTCH 

NEXTCH JSR GET.SL Get currently selected character. 

CMP #ETX Is it an ETX? 

BEQ AN. ETX If so, return to caller, bearing a negative 

return code. 
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JSR NEXTSL 
RTS 



AN.ETX LDA #$FF 
RTS 



If not, select next byte in the buffer, and 
return positive if we incremented 
SELECT; negative if SELECT already 
equaled EA. 

Since we are on an ETX, we won't incre- 
ment 

SELECT; well just return with a 
negative return code. 



Select Previous Character 

The PREVCH (select-previous-character routine) should work in a manner 
similar to that used by NEXTCH. NEXTCH increments the SELECT pointer and 
returns plus, unless SELECT is greater than or equal to EA, in which case NEXTCH 
preserves SELECT and returns minus. Conversely, PREVCH should decrement 
SELECT and return plus, unless SELECT is less than or equal to SA, in which case it 
should preserve SELECT and return minus: 



PREVCH 



PREVCH 



SL.OK 



NOT.OK 



SEC 

LDA SA+1 
CMP SELECT +1 
BCC SL.OK 
BNE NOT.OK 



LDASA 
CMP SELECT 
BEQ NO.DEC 
BNE NOT.OK 

JSR DEC.SL 



LDA#0 
RTS 

LDASA 
STA SELECT 
LDA SA+1 



Prepare to compare. 

Is SELECT in a higher page than SA? 

If so, SELECT may be decremented. 
If SELECT is in a lower page than SA, 
then it's not okay. We'll have to fix it. 
SELECT is in the same page as SA. 
Is SELECT greater than SA? 

If SELECT = SA, don't decrement it. 

If SELECT is less than SA, it's not okay, 

so we'll have to fix it. 

SELECT is OK, because it's greater than 

SA. Thus, we may decrement it and it 

will remain in the edit buffer. 

Set a positive return code... 

and return. 

Since SELECT is less than SA, it is 

not even in the edit buffer. So give 

SELECT a legal value, by setting 

it = SA. 
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NO.DEC 



STA SELECT +1 

LDA#0 

RTS. 

LDA #$FF 

RTS 



Set a positive return code... 
and return. 

SELECT = SA, so change nothing, 
a negative return code and return. 



Set 



Flush Buffer 

To flush the buffer, we'll just fill the buffer with ETX characters: 

FLUSH 



FLUSH 


JSR GOTOSA 


Set SELECT to the first character posi- 
tion in the buffer. 


FLOOP 


LDA #ETX 


Load accumulator with an ETX 
character... 




JSR PUT.SL 


and put it into the buffer. 




JSR NEXTSL 


Advance to next byte. 




BPL FLOOP 


If we haven't reached the last byte in the 
buffer, let's repeat the operation for this 
byte. 




JSR GOTOSA 


If we have reached the last byte in the 
buffer, let's set SELECT to the beginning 
of the buffer... 




JSR RTS 


and return. 



Print Buffer 

To print the buffer, we must print the characters in the edit buffer up to, but not 
including, the first ETX. Even if there is no ETX in the buffer, we must not print 
characters from beyond the end of the buffer: 



PRTBUF 
PRLOOP 



JSR GOTOSA 
JSR GET.SL 
CMP #ETX 
BEQ ENDPRT 



PRTBUF 



Set SELECT to the start of the buffer. 
Get the currently selected character. 
Is it an ETX character? 
If so, stop printing and return. 
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JSR PR.CHR 
JSR NEXTCH 
BPL PRLOOP 



ENDPRT RTS 



If not, print it on all currently selected 
devices. 

Advance SELECT by 1 byte within the 
buffer. 

If we haven't reached the end of the buf- 
fer, let's get the next character from the 
buffer, and handle it. 
Since we reached the end of the buffer, 
let's return. 

When this routine returns, the current 
character is at the end of the message. 



Delete Current Character 

To delete the current character, we'll take all the characters that follow it in the 
text buffer and move them to the left by 1 byte. Here's some code to implement such 
behavior: 



DELETE 



JSR PUSHSL 

LDA SA+1 

PHA 

LDASA 

PHA 

JSR DAHERE 



JSR NEXTSL 
JSR SAHERE 



JSR MOV.EA 

PLA 
STASA 
PLA 
STASA+1 



Save address of current character. 
Save buffer's start address. 



Set DEST = SELECT, because we'll 
move a block of text down to here, to 
close up the buffer at the current 
character. 

Advance by 1 byte through text buffer, 
if possible. 

Set SA = SELECT, because the block 
we'll move starts 1 byte above the cur- 
rent character. (Note: the end address of 
the block we'll move is the end address 
of the text buffer.) 

Move block specified by SA, EA, and 
DEST. 

Restore initial SA (which 
is the start address of the 
text buffer, not of the block 
we just moved). 
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JSR POP.SL Restore SELECT = address of the cur- 

rent character. 
RTS Return to caller. 



That's the last of the utilities we need. We now have enough code to comprise 
a simple text editor. Appendices CIO and Cll are listings of this text editor, show- 
ing key assignments that work on a Commodore 64 or VIC-20. If you prefer your 
editor functions mapped to different keys, simply change the values of the variables 
in the key table. If you don't want to have a given function, then for that function 
store a keycode of zero. You'll find this editor very handy for entering tables of 
ASCII characters into memory, and for entering, editing, and printing short text 
strings such as titles for your hexdumps and disassembler listings. 
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Chapter 1 2: 

Extending the Visible Monitor 



At this point you have the Visible Monitor, the print utilities, two hexdump 
tools, a table-driven disassembler, a move tool, and a simple text editor. Wouldn't it 
be nice if they were all combined into one interactive software package? Then you 
could call any tool or function with a single keystroke. Since the Visible Monitor 
already uses several keys (0 thru 9; A thru F; G; Space; Return; two arrow keys; 
and Clear-Screen), we'll have to map these new functions into unused keys. 

Here's a list of keys and the functions they will have in the extended monitor: 



H Call a HEXDUMP tool (TVDUMP if the printer is not selected; 

PRDUMP if the printer is selected). 
M Call MOVER, the move tool. 

P Toggle the printer flag. 

T Call the text editor. 

U Toggle the user output flag. 

? Call the disassembler (TV.DIS if the printer is not selected; PR.DIS if the 

printer is selected). 



With this assignment of keys to functions, we can select or deselect the printer 
at any time just by pressing "P," and likewise the wser-driven output device just by 
pressing "U." We can print or display a hexdump just by pressing "H" and print or 
display a disassembly just by pressing "?" (which is almost mnemonic if we think of 
the disassembler as an answer to our question, "What's in the machine?"). We can 
move anything from anywhere to anywhere else by pressing "M" for move, and we 
can enter and edit text just by pressing "T" for text editor. 
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Here's some code to provide these features. Since we want to extend the 
monitor, this subroutine is called EXTEND: 



EXTEND 



When EXTEND is called by the Visible 
Monitor's UPDATE routine, a character 
from the keyboard is in the ac- 
cumulator. 



EXTEND 


CMP #P 


Is it the "P" key? 




BNE IF.U 


If not, perform the next test. 




LDA PRINTR 


If so, toggle the 




EOR #$FF 


printer flag... 




STA PRINTR 






RTS 


and return to caller. 


IF.U 


CMP#U 


Is it the "U" key? 




BNE IF.H 


If not, perform the next test. 




LDA USR.FN 


If so, 




EOR #$FF 


toggle the user-output 




STA USR.FN 


flag... 




RTS 


and return. 


IF.H 


CMPfH 


Is it the "H" key? 




BNE IF.M 


If not, perform the next test. 




LDA PRINTR 


Is the printer selected? 




BNE NEXT.l 


If so, print a hexdump. 




JSR TVDUMP 


If not, dump to screen... 




RTS 


and return. 


NEXT.l 


JSR PRDUMP 


Print a hexdump... 




RTS 


and return. 


IF.M 


CMP I'M 


Is it the "M" key? 




BNE IF.DIS 


If not, perform the next test. 




JSR MOVER 


If so, call the move tool. 




RTS 


...and return. 


IF.DIS 


CMP f ? 


Is it the "?" key? 




BNE IF.T 


If not, perform the next test. 




LDA PRINTR 


Is the printer selected? 




BNE NEXT.2 


If so, print a disassembly. 




JSR TV.DIS 


If not, dump to screen... 




RTS 


and return. 


NEXT.2 


JSR PR.DIS 


Print a disassembly... 




RTS 


and return. 


IF.T 


CMPfT 


Is it the "T" key? 




BNE EXIT 


If not, return. 
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JSR EDITOR If so, call the text editor... 

RTS and return. 

EXIT RTS Extend this subroutine by adding more 

test-and-branch code here. 



The only remaining step is to modify the Visible Monitor's UPDATE routine so 
that it calls EXTEND, rather than DUMMY, before it returns. Currently, the Visible 
Monitor's UPDATE routine calls DUMMY just before it returns, with the bytes $20, 
$10, and $30 at addresses $33D1, $33D2, and $33D3, respectively. To make the Visi- 
ble Monitor's UPDATE routine call EXTEND (instead of DUMMY), you must 
change $33D2 from $10 to $B0. 

You can change this byte with the Visible Monitor itself, provided that you are 
very careful not to touch any key except the keys that are legal to the wnextended 
Visible Monitor. Once you have changed $33D2, you may strike any key, but while 
you are changing $33D2, striking a key that is not legal within the unextended Visi- 
ble Monitor will cause the Visible Monitor to crash. Be careful. Once you have 
changed $33D2, try out your new extensions of the Visible Monitor by pressing the 
now legal keys: "H," "M," "P," "U," "V and "T." 
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Chapter 13: 

Entering the Software into 
Your System 



Chapters 5 thru 12 present software that will do useful work for you, but only if 
you can get it into your computer's memory. If your Commodore 64 or VIC-20 had 
a machine-language monitor, you could use it to enter the object code for the soft- 
ware in this book. (But if you already had such a monitor, you wouldn't have 
much need for the software in this book!) 

Of course, your computer features a BASIC interpreter in ROM (read-only 
memory), but lacks a machine-language monitor. How can you enter hexadecimal 
object code into memory using only a BASIC interpreter? Perhaps more impor- 
tantly, even if we manage to enter that object code into memory, how can we save 
that object code onto a cassette or disk? If all we have is a BASIC interpreter, the 
simplest solution is to make our object code look like a BASIC program. 

That's not so hard. A BASIC program may contain DATA statements, so a 
simple BASIC program can contain a number of DATA statements, where the 
DATA statements actually represent, in decimal, the values of successive bytes in 
the object code. Then the BASIC program can READ those DATA statements and 
POKE the values it finds into the appropriate section of memory. 



Using BASIC to Load Machine Language 

The software in this book can be entered into your computer by RUNning just 
such a series of BASIC programs. Each of these programs consists of an OBJECT 
CODE LOADER followed by some number of DATA statements. The first two 
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DATA statements specify the range of DATA statements that follow. Each of the 
following DATA statements contains ten values: the first value is the start address at 
which object code from the line is to be loaded; the next eight values represent bytes 
to be loaded into memory, beginning at the specified address; and the tenth value is 
the checksum. The checksum is simply the total of the first nine values in the DATA 
statement. Of these ten values, the first and the tenth will always be greater than 
4000, and the others will always be less than 256. 

Appendices El through Ell contain this book's object code in the form of such 
DATA statements. You must type each of these DATA statements into your com- 
puter, but the BASIC OBJECT CODE LOADER is designed to let you know if 
you've made a mistake. It won't catch any possible error you might make while typ- 
ing, but it will catch the most likely errors. How? The answer is in the checksum. If 
you make a mistake while typing in one of these DATA lines, the checksum will 
almost certainly fail to match the sum of the address and the 8 bytes in the line. 
Then, when you RUN the OBJECT CODE LOADER, it will identify the offending 
data statement by printing its line number as well as the address specified by the 
offending line. 

The object code loader will use the following variables: 

A The address specified by a data line. Object code from that data 

line is to be loaded into memory beginning at that address. 

BYTE An array of DIMension 8, containing the values of 8 consecutive 

bytes of object code as specified by a data line. 

CHECK The checksum specified by a data line. 

FIRST The number of the first DATA statement containing object code. 

LAST The number of the last DATA statement containing object code. 

LINE A line counter, tracking the number of data lines of object code 

already loaded into memory. 

SUM The calculated sum of the 8 bytes of object code and the address 

specified by a given data line. If SUM equals the checksum specified 
by that data line, then the data is probably correct. 

TEMP A temporary variable. 



NOTE: In the following listing, the REMarks are optional. 

100 REM OBJECT CODE LOADER by Ken Skier 

110 REM 

120 DIM BYTE(8) :REM Initialize BYTE array. 

130 READ FIRST : REM Get the line number of the first 

140 REM DATA statement containing object code. 

150 READ LAST :REM Get the line number of the last 
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160 REM DATA statement containing object code. 

170 FOR LINE = FIRST TO LAST :REM Read the specified DATA lines. 

180 GOSUB 300 :REM Load next data line into memory. 

190 NEXT LINE :REM If not done, read next DATA line. 

200 PRINT "LOADED LINES^FIRST,'THROUGH'',LAST, "SUCCESSFULLY." 
210 END :REM If done, say so. 

220 REM 
230 REM 
240 REM 
300 READ A 
310 SUM = A 

320 FOR J = l TO 8 

321 REM 
330 READ BYTE(J) 

340 SUM = SUM + BYTE(J) 

341 REM 
350 NEXT J 
360 REM 

370 READ CHECK 
380 IF SUM < > CHECK THEN 500 
390 FOR J = l TO 8 
400 POKE A +J-1,BYTE(J) 
410 NEXT J 
420 RETURN 
430 REM 



Subroutine at 300 handles one 
DATA statement. 

REM Get address for object code. 

REM Initialize calculated sum of data. 

REM Get 8 bytes of object code from 
data. 

:REM Put them in the byte array, and 
:REM add them to the calculated sum of 
data. 

:REM Now we have the 8 bytes, and we 
have calculated the sum of the data. 

REM Get checksum from data line. 

REM If checksum error, handle it. 

REM Since there is no checksum error, 

REM poke the data into the specified 

REM portion of memory, 

REM and return to caller. 



440 REM 
500 PRINT 
510 PRINT 
520 END 
530 REM 
540 REM 
550 REM 
570 REM 
600 DATA ???? 

610 REM 

611 REM 

612 REM 

620 DATA 1111 

630 REM 

631 REM 



Checksum error-handling code follows. 
'CHECKSUM ERROR IN DATA LINE",LINE 
'START ADDRESS GIVEN IN BAD DATA LINE IS", A 



The next two DATA statements specify 
the range of DATA statements that 
contain object code. 

:REM This should be the number of the 
first DATA statement containing object 
code. 

:REM This should be the number of the 
last DATA statement containing object 
code. 



Once you've entered the BASIC OBJECT CODE LOADER into your 
computer's memory, SAVE it on a cassette. Remember that by itself the BASIC 
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OBJECT CODE LOADER can do nothing; it needs DATA statements in the proper 
form to be a complete, useful program. When you're ready to create such a pro- 
gram, LOAD the BASIC OBJECT CODE LOADER from cassette back into 
memory. Now you're ready to append to it DATA statements from one of the E Ap- 
pendices — for example, from Appendix El. Do not append DATA statements from 
more than one appendix to the same BASIC program. Append as many DATA lines 
as you can, without using memory above $2FFF (decimal 12287). You can insure 
that you don't run over this limit by setting 12287 as the top of memory available 
to your system's BASIC interpreter. To do so, issue the following BASIC com- 
mands immediately after turning on your computer: 

POKE 52,47 : POKE 56,47 
POKE 51,255: POKE 55,255 

That will keep BASIC from using memory above $2FFF. 

Before you can append to the OBJECT CODE LOADER all of the DATA 
statements from a given E appendix, your BASIC interpreter may give you an OUT 
OF MEMORY error (MEMORY FULL). If that happens, delete the last DATA line 
you appended to the OBJECT CODE LOADER. Let's say you've appended DATA 
lines 1000 thru 1022 when you get an OUT OF MEMORY error. Delete DATA line 
1022. Now enter the line numbers of the first and last of the object code DATA 
statements into DATA lines 600 and 620, like this: 



600 DATA 1000 
620 DATA 1021 



DATA lines 600 and 620, the very first DATA lines in your program, tell the 
BASIC OBJECT CODE LOADER how many DATA lines of object code follow. 
Now the OBJECT CODE LOADER can "know" how many DATA lines to read, 
without reading too few or too many. In this case, DATA lines 600 and 620 tell the 
OBJECT CODE LOADER that the object code may be found in DATA lines 1000 
thru 1021. 

Note that DATA lines 600 and 620 each contain one value, whereas the remain- 
ing DATA lines each contain ten values. 

Now you are ready to RUN the OBJECT CODE LOADER. Unless you're a bet- 
ter typist than I am, you probably made some mistakes while typing in the DATA 
lines from Appendix El. Don't worry; the incorrect data will not be blindly loaded 
into memory. If the BASIC OBJECT CODE LOADER detects a checksum error, it 
will tell you so, like this: 

CHECKSUM ERROR IN DATA STATEMENT 1012 

START ADDRESS GIVEN IN BAD DATA LINE IS 12640 
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This means that data statement 1012 has a checksum error: ie, bad data. To 
help you double check, the second line of the error message specifies the start ad- 
dress given by the bad data line: this is the first number in the offending data line. 
These two items of information should make it easy for you to find the bad data 
line— just look for the DATA statement whose line number is 1012 and whose first 
value is 12640. That's the DATA statement you entered incorrectly. Now you need 
only eyeball the ten numbers in that line, comparing them to the corresponding 
DATA statement in Appendix El, and you should quickly find the number or 
numbers you entered incorrectly. Fix that DATA statement, and RUN the LOADER 
again. 

When you have entered all of the DATA statements correctly, RUNning the 
LOADER will load the object code they specify into memory. The OBJECT CODE 
LOADER will then print: 



LOADED LINES aaaa THROUGH bbbb SUCCESSFULLY 

where aaaa' is the number of the first DATA line of object code, and 'bbbb' is the 
number of the last DATA line of object code in the program. This message tells you 
that the BASIC OBJECT CODE LOADER has read and POKE'd the indicated range 
of DATA statements into memory. 

When you see this message, you have verified the program, so SAVE it on a 
cassette. Then make up a new BASIC program, containing the OBJECT CODE 
LOADER and the next group of DATA statements from an E Appendix. (Remember 
not to append DATA lines from more than one E Appendix to the same BASIC pro- 
gram.) Store in lines 600 and 620 the line numbers of the first and last DATA 
statements you copied from the E Appendix. Verify and SAVE this program as well, 
and then continue in this manner until you have entered, verified, and SAVE'd 
BASIC programs containing all of the DATA statements in Appendices El thru Ell, 
as well as the DATA statements in the E Appendix containing system data for your 
computer (E12 for the VIC; E13 for the C-64). RUNning all of those BASIC pro- 
grams will then enter all of the software presented in this book into your computer's 
memory. 

At this point, you should be ready to transfer control from your computer's 
BASIC interpreter to the VISIBLE MONITOR. 



Activating the Visible Monitor 

Once you have entered the object code for the Screen Utilities, the Visible 
Monitor, and the System Data Block into your system, you can activate the Visible 
Monitor by causing the 6502 in your computer to execute a JSR (jump to subroutine) 
to $308F, which is 12431 decimal. 
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You can invoke the Visible Monitor from BASIC in the immediate mode with 
the following BASIC command: 



SYS (12431) 



When you press (RETURN), you'll see the Visible Monitor display, because SYS 
(12431) causes BASIC to call the subroutine at address 12431 decimal, which is 
$308F— the entry point for the Visible Monitor. 

Once you have activated the Visible Monitor, you should see its display on the 
screen. If you don't see such a display, then the Visible Monitor has not been entered 
properly into your system's memory; perhaps you LOADed one of the BASIC pro- 
grams whose DATA statements contain object code, but you forgot to RUN it. 

If you do see the Visible Monitor display on the screen, press the space bar. The 
display should change — specifically, the displayed address should increment, and 
fields 1 and 2, immediately to the right of the displayed address, may also change. 

If nothing changes when you press the space bar, then the display code prob- 
ably works fine, but you failed to enter the UPDATE code properly. 

If the space bar does change the display, then test out the other functions of the 
Visible Monitor: press RETURN to decrement the selected address; press hexa- 
decimal keys to select a different address; then select an address somewhere in un- 
used RAM (e.g., $03FD) and place new data into that address. 

If your Visible Monitor fails to perform properly, you may have entered it into 
memory incorrectly. Compare the DATA statements you appended to the OBJECT 
CODE LOADER with the DATA statements in the E Appendices. Remember: if 
even 1 byte is entered incorrectiv, then in all likelihood the Visible Monitor will fail 
to function. Remember that you must LOAD and RUN BASIC programs contain- 
ing, jointly all of the DATA statements in appendices El thru Ell, plus all the 
DATA statements in appendix E12 (if you have a VIC) or appendix E13 (if you 
have a Commodore 64). Do not try to call the Visible Monitor until you have en- 
tered into memory all of the object code it uses— including the system data block 
designed for your system. Invoking the Visible Monitor too soon will surely cause 
it to crash. 

To extend the Visible Monitor as described in Chapter 12, store a $BO in ad- 
dress $33D2. To disable the features described in Chapter 12, store a $10 in address 
$33D2. Now you're really getting your hands on the machine, reaching into memory 
and operating on the bytes, and with that kind of control, you can do almost 
anything. 
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Saving a Machine Language Program on Tape or Disk 

With the Visible Monitor and its extensions, you can create ever more power- 
ful machine language (ML) programs. Presumably, you will want to save them on 
tape or disk, so that you can load them again and run them whenever you wish. 
Fortunately, the Commodore 64 and VIC-20 computers contain a set of subroutines 
in ROM, called the KERNAL routines, which include the subroutines you need to 
save object code on tape and disk. 

We'll assume that the Visible Monitor and its extensions is in memory, as well 
as some machine language program that you have entered. To save that program 
on tape or disk, run the following BASIC program: 



BASIC PROGRAM TO SAVE ANY MACHINE LANGUAGE 
ON TAPE OR DISK 

10 DEVICE =12364 

20 LNGTH =12365 

30 NAME =12366 

40 MLSAV =12386 

50 SETADS= 13795 

60 : 

100 PRINT "SAVE A MACHINE LANGUAGE PROGRAM" 

110 PRINT 

120 INPUT "FILE NAME"; NAMES 

125 IF LEN(NAME$)>19 THEN NAMES = LEFT$(N AME$, 19) 

130 POKE LNGTH, LEN(NAMES) 

140 IF LEN(NAME$) = THEN 200 

150 : 

160 FORJ = lTOLEN(NAME$) 

170 : POKENAME+J-l,ASC(MID$(NAME$,T)) 

180 NEXT J 

190 : 

200 PRINT "SAVE TO (T)APE OR (D)ISK?" 

210 GET A$: IF LEN( A$) = THEN 210 

220 IF A$="T" THEN POKE DEVICE,l:GOTO 300 

230 IF A$="D" THEN POKE DEVICE,8:GOTO 300 

240 PRINT "KEYSTROKE IGNORED.": PRINT: GOTO 200 

250 : 

300 SYS (SET ADS) : REM GET START, END ADDRESSES 

310 SYS (MLSAV) : REM SAVE THE PROGRAM ON DISK OR TAPE. 

The above BASIC program will ask you to specify a filename; then it will store 
that filename at an address in memory called NAME. It will ask you to specify the 
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device you wish to use (tape or disk) and then it will ask you to specify the start 
and end addresses of the machine language program. When you have done so, it 
will create a file on the tape or disk, save the specified portion of memory in that 
file, and then return to BASIC. You'll know it's done when you see the "READY" 
prompt on the screen. 

Once you have saved a machine language on tape or disk, you may load it in 
again at any time. If you have saved the file on tape, enter this BASIC command: 



LOAD "program name", 1,1 



On the other hand, if you saved the machine language program on disk, enter 
this BASIC command: 



LOAD "program name" ",8,1 



After LOADing a machine language program, some pointers used by BASIC 
may be inaccurate, which will cause it to respond with "OUT OF MEMORY" to 
many perfectly legitimate commands. To fix these pointers, be sure to issue the fol- 
lowing BASIC commands immediately after using the LOAD command to load a 
machine language program: 



POKE 52,47 : POKE 56,47 
POKE 51,255: POKE 55,255 
NEW 



Issuing these commands will delete the BASIC program in memory (if there is 
one); but it will not affect any machine language program in memory above $2FFF. 
In any case, it will correct the BASIC pointers that were incorrectly modified by 
LOADING the machine language program. You may then load a BASIC program, 
or enter one from the keyboard, without damaging the machine language program 
that you just loaded. 
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Appendix A I : 

Hexadecimal Conversion Table 



HEX 





1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 


00 


ooti 








1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 








1 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


256 


4096 


2 


32 


33 


34 


35 


36 


37 


38 


39 


40 


41 


42 


43 


44 


45 


46 


47 


512 


8192 


3 


48 


49 


50 


51 


52 


53 


54 


55 


56 


57 


58 


59 


60 


61 


62 


63 


768 


12288 


4 


64 


65 


66 


67 


68 


69 


70 


71 


72 


73 


74 


75 


76 


77 


78 


79 


1024 


16384 


5 


80 


81 


82 


83 


84 


85 


86 


87 


88 


89 


90 


91 


92 


93 


94 


95 


1280 


20480 


6 


96 


97 


98 


99 


100 


101 


102 


103 


104 


105 


106 


107 


108 


109 


110 


ni 


1536 


24576 


7 


112 


113 


114 


115 


116 


117 


118 


119 


120 


121 


122 


123 


124 


125 


126 


127 


1792 


28672 


8 


128 


129 


130 


131 


132 


133 


134 


135 


136 


137 


138 


139 


140 


141 


142 


143 


2048 


32768 


9 


144 


145 


146 


147 


148 


149 


150 


151 


152 


153 


154 


155 


156 


157 


158 


158 


2304 


36864 


A 


160 


161 


162 


163 


164 


165 


166 


167 


168 


169 


170 


171 


172 


173 


174 


175 


2560 


40960 


B 


176 


177 


178 


179 


180 


181 


182 


183 


184 


185 


186 


187 


188 


189 


190 


191 


2816 


45056 


C 


192 


193 


194 


195 


196 


197 


198 


199 


200 


201 


202 


203 


204 


205 


206 


207 


3072 


49152 


D 


208 


209 


210 


211 


212 


213 


214 


215 


216 


217 


218 


219 


220 


221 


222 


223 


3328 


53248 


E 


224 


225 


226 


227 


228 


229 


230 


231 


232 


233 


234 


235 


236 


237 


238 


239 


3584 


57344 


F 


240 


241 


242 


243 


244 


245 


246 


247 


248 


249 


250 


251 


252 


253 


254 


255 


3840 


61440 
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Appendix A2: 

ASCII Character Codes 



Code 


Char 


Code 


Char 


Code 


Char 


Code 


Char 


00 


NUL 


20 


SP 


40 


@ 


60 


« 


01 


SOH 


21 


! 


41 


A 


61 


a 


02 


STX 


22 


" 


42 


B 


62 


b 


03 


ETX 


23 


# 


43 


C 


63 


c 


04 


EOT 


24 


$ 


44 


D 


64 


d 


05 


ENQ 


25 


% 


45 


E 


65 


e 


06 


ACK 


26 


& 


46 


F 


66 


f 


07 


BEL 


27 


' 


47 


G 


67 


g 


08 


BS 


28 


( 


48 


H 


68 


h 


09 


HT 


29 


) 


49 


I 


69 


i 


0A 


LF 


2A 


* 


4A 


J 


6A 


j 


OB 


VT 


2B 


+ 


4B 


K 


6B 


k 


OC 


FF 


2C 


r 


4C 


L 


6C 


1 


OD 


CR 


2D 


— 


4D 


M 


6D 


m 


OE 


SO 


2E 




4E 


N 


6E 


n 


OF 


SI 


2F 


1 


4F 


O 


6F 


o 


10 


DLE 


30 





50 


P 


70 


P 


11 


DC1 


31 


1 


51 


Q 


71 


q 


12 


DC2 


32 


2 


52 


R 


72 


r 


13 


DC3 


33 


3 


53 


S 


73 


s 


14 


DC4 


34 


4 


54 


T 


74 


t 


15 


NAK 


35 


'5 


55 


U 


75 


u 


16 


SYN 


36 


6 


56 


V 


76 


V 


17 


ETB 


37 


7 


57 


W 


77 


w 


18 


CAN 


38 


8 


58 


X 


78 


X 


19 


EM 


39 


9 


59 


Y 


79 


y 


1A 


SUB 


3A 




5A 


Z 


7A 


z 


IB 


ESC 


3B 


; 


5B 


[ 


7B 


{ 


1C 


FS 


3C 


< 


5C 


\ 


7C 


1 
1 


ID 


GS 


3D 


= 


5D 


] 


7D 


) 


IE 


RS 


3E 


> 


5E 


A 


7E 




IF 


US 


3F 


' ? 


5F 




7F 


DEL 
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Appendix A3: 

6502 Instruction Set — Mnemonic List 



ADC Add Memory to Accumulator with Carry 

AND "AND" Memory with Accumulator 

ASL Shift Left One Bit (Memory or Accumulator) 

BCC Branch on Carry Clear 

BCS Branch on Carry Set 

BEQ Branch on Result Zero 

BIT Test Bits in Memory with Accumulator 

BMI Branch on Result Minus 

BML Branch on Result not Zero 

BPL Branch on Result Plus 

BRK Force Break 

BVC Branch on Overflow Clear 

BVS Branch on Overflow Set 

CLC Clear Carry Flag 

CLD Clear Decimal Mode 

CLI Clear Interrupt Disable Bit 

CLV Clear Overflow Flag 

CMP Compare Memory and Accumulator 

CPX Compare Memory and Register X 

CPY Compare Memory and Register Y 

DEC Decrement Memory 

DEX Decrement Register X 

DEY Decrement Register Y 

EOR Exclusive Or" Memory with Accumulator 

INC Increment Memory 

INX Increment Register X 

INY Increment Register Y 
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JMP Jump to New Location 

JSR Jump to New Location Saving Return Address 

LDA Load Accumulator with Memory 

LDX Load Register X with Memory 

LDY Load Register Y with Memory 

LSR Shift Right One Bit (Memory or Accumulator) 

NOP No Operation 

ORA "OR" Memory with Accumulator 

PHA Push Accumulator on Stack 

PHP Push Processor Status on Stack 

PLA Pull Accumulator from Stack 

PLP Pull Processor Status from Stack 

ROL Rotate One Bit Left (Memory or Accumulator) 

ROR Rotate One Bit Right (Memory or Accumulator) 

RTI Return from Interrupt 

RTS Return from Subroutine 

SBC Subtract Memory from Accumulator with Borrow 

SEC Set Carry Flag 

SED Set Decimal Mode 

SEI Set Interrupt Disable Status 

STA Store Accumulator in Memory 

STX Store Register X in Memory 

STY Store Register Y in Memory 

TAX Transfer Accumulator to Register X 

TAY Transfer Accumulator to Register Y 

TSX Transfer Stack Pointer to Register X 

TXA Transfer Register X to Accumulator 

TXS Transfer Register X to Stack Pointer 

TYA Transfer Register Y to Accumulator 
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Appendix A4: 

6502 Instruction Set — Opcode List 



00 - BRK 

01 — ORA - 

02 — Future 

03 — Future 

04 — Future 

05 — ORA - 

06 — ASL — 

07 — Future 

08 - PHP 

09 — ORA - 
0A - ASL - 
0B — Future 
0C — Future 
0D-ORA 
0E - ASL - 
OF — Future 



- (Indirect,X) 
Expansion 
Expansion 
Expansion 

- Zero Page 
Zero Page 

Expansion 



- Immediate 

- Accumulator 
Expansion 
Expansion 

- Absolute 

- Absolute 
Expansion 



10 - BPL 

11 — ORA — (Indirect),Y 

12 — Future Expansion 

13 — Future Expansion 

14 — Future Expansion 

15 — ORA — Zero Page,X 

16 — ASL — Zero Page,X 

17 — Future Expansion 



18 - CLC 

19 — ORA — Absolute, Y 
1A — Future Expansion 
IB — - Future Expansion 
1C — Future Expansion 
ID — ORA — Absolute, X 
IE — Future Expansion 

IF — Future Expansion 



20 — JSR 

21 — AND — (Indirect,X) 

22 — Future Expansion 

23 — Future Expansion 

24 — Bit — Zero Page 

25 — AND — Zero Page 

26 — ROL — Zero Page 

27 — - Future Expansion 

28 — PLP 

29 — AND — Immediate 
2A — ROL .— Accumulator 
2B — Future Expansion 

2C — BIT — Absolute 
2D — AND — Absolute 
2E — ROL — Absolute 
2F — Future Expansion 
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30 - BMI 

31 — AND — (Indirect),Y 

32 — Future Expansion 

33 — Future Expansion 

34 — Future Expansion 

35 — AND — Zero Page,X 

36 — ROL — Zero Page,X 

37 — Future Expansion 

38 — SEC 

39 — AND — Absolute, Y 
3A — Future Expansion 
3B — Future Expansion 
3C — Future Expansion 
3D — AND — Absolute,X 
3F — Future Expansion 



40 - RTI 

41 — EOR - 

42 — Future 

43 — Future 

44 — Future 

45 — EOR - 

46 — LSR — 

47 — Future 

48 — PHA 

49 — EOR - 
4A - LSR - 
4B — Future 
4C - JMP - 
4D - EOR - 
4E - LSR - 
4F — Future 



- (Indirect^) 
Expansion 
Expansion 
Expansion 

- Zero Page 
Zero Page 

Expansion 

- Immediate 

- Accumulator 
Expansion 

- Absolute 

- Absolute 
Absolute 

Expansion 



50 — BVC 

51 — EOR — (Indirect), Y 

52 — Future Expansion 

53 — Future Expansion 

54 _ Future Expansion 

55 — EOR — Zero Page,X 

56 — Zero Page,X 

57 — Future Expansion 



58 - CLI 

59 — EOR — Absolute, Y 
5A — Future Expansion 
5B — Future Expansion 
5C — Future Expansion 
5D — EOR — Absolute,X 
5E — LSR — Absolute,X 
5F — Future Expansion 



60 — RTS 

61 - ADC - 

62 — Future 

63 — Future 

64 — Future 

65 — ADC - 

66 — ROR - 
57 — Future 

68 — PLA 

69 - ADC - 
6A - ROR 
6B — Future 
6C - JMP - 
6D — ADC 
6E - ROR - 
6F — Future 



- (Indirect,X) 
Expansion 
Expansion 
Expansion 

- Zero Page 

- Zero Page 
Expansion 

- Immediate 

- Accumulator 
Expansion 

- Indirect 

- Absolute 

- Absolute 
Expansion 



70 — BVS 

71 — ADC — (Indirect),Y 

72 — Future Expansion 

73 — Future Expansion 

74 — Future Expansion 

75 — ADC — Zero Page,X 

76 — ROR — Zero Page,X 

77 — Future Expansion 

78 - SEI 

79 — ADC Absolute, Y 
7A — Future Expansion 
7B — Future Expansion 
7C — Future Expansion 
7D — ADC - Absolute^ 
7E — ROR - Absolute,X 
7F — Future Expansion 
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80- 


- Future Expansion 


A8- 


-TAY 


81 - 


- STA — (Indirect,X) 


A9- 


- LDA — Immediate 


82- 


- Future Expansion 


AA 


-TAX 


83 - 


- Future Expansion 


AB- 


— Future Expansion 


84- 


- STY — Zero Page 


AC- 


- LDY — Absolute 


85 - 


- STA — Zero Page 


AD 


— LDA — Absolute 


86 - 


- STX — Zero Page 


AE- 


- LDX — Absolute 


87- 


- Future Expansion 


AF- 


- Future Expansion 


88- 


-DEY 






89- 


— Future Expansion 






8A 


-TXA 


B0- 


-BCS 


8B- 


— Future Expansion 


Bl- 


- LDA - (Indirect),Y 


8C 


— STY — Absolute 


B2- 


- Future Expansion 


8D 


— STA — Absolute 


B3- 


- Future Expansion 


8E- 


- STX — Absolute 


B4- 


- LDY — Zero Page,X 


8F- 


— Future Expansion 


B5- 


- LDA — Zero Page,X 






B6- 


- LDX — Zero Page,Y 






B7- 


- Future Expansion 


90 


-BCC 


B8- 


-CLV 


91 


- STA - (Indirect),Y 


B9- 


- LDA — Absolute,Y 


92 


— Future Expansion 


BA 


-TSX 


93 


— Future Expansion 


BB 


— Future Expansion 


94 


- STY - Zero Page,X 


BC 


— LDY — Absolute,X 


95 


— STA — Zero Page,X 


BD 


— LDA — Absolute,X 


96 


- STX - Zero Page,Y 


BE 


- LDX — Absolute,Y 


97 


— Future Expansion 


BF- 


— Future Expansion 



98 — TYA 

99 — STA — Absolute,Y 
9A - TXS 

9B — Future Expansion 
9C — Future Expansion 
9D — STA — Absolute,X 
9E — Future Expansion 
9F — Future Expansion 



A0 — LDY — Immediate 
Al - LDA - (Indirect^) 
A2 — LDX — Immediate 
A3 — Future Expansion 
A4 — LDY — Zero Page 
A5 — LDA — Zero Page 
A6 — LDX — Zero Page 
A7 — Future Expansion 



CO — CPY — Immediate 
CI — CMP — (Indirect,X) 
C2 — Future Expansion 
C3 — Future Expansion 
C4 — CPY — Zero Page 
C5 — CMP — Zero Page 
C6 — DEC — Zero Page 
C7 — Future Expansion 
C8 - INY 

C9 — CMP — Immediate 
CA - DEX 

CB — Future Expansion 
CC — CPY — Absolute 
CD — CMP — Absolute 
CE — DEC — Absolute 
CF — Future Expansion 
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DO - BNE 

Dl — CMP — (Indirect),Y 
D2 — Future Expansion 
D3 — Future Expansion 
D4 — Future Expansion 
D5 — CMP — Zero Page,X 
D6 — DEC — Zero Page,X 
D7 — Future Expansion 
D8 — CLD 

D9 — CMP — Absolutely 
DA — Future Expansion 
DB — Future Expansion 
DC — Future Expansion 
DD — CMP — Absolute,X 
DE — DEC — Absolute,X 
DF — Future Expansion 



EO — CPX — Immediate 
El — SEC — (Indirect^) 
E2 — Future Expansion 
E3 — Future Expansion 
E4 — CPX — Zero Page 
E5 — SBC — Zero Page 
E6 — Zero Page 
E7 — Future Expansion 



E8 - INX 

E9 — SBC — Immediate 

EA - NOP 

EB — Future Expansion 

EC - CPX — Absolute 

ED — SBC — Absolute 

EE — INC - Absolute 

EF — Future Expansion 



FO - BEQ 

Fl — SBC — (Indirect),Y 
F2 — Future Expansion 
F3 — Future Expansion 
F4 — Future Expansion 
F5 — SBC — Zero Page,X 
F6 — INC — Zero Page,X 
F7 — Future Expansion 
F8 — SED 

F9 - SBC - Absolute, Y 
FA — Future Expansion 
FB — Future Expansion 
FC — Future Expansion 
FD — SBC — Absolute,X 
FE — INC — Absolute,X 
FF — Future Expansion 
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Appendix A5: 



Instruction Execution Times «„ dock <*.« 



O 



I 


13 


8P 




01 

8P 

CL, 




3 


5? 
"3 


T3 
0) 


£ 


1 


§ 


0> 


O 




u 




In 
0> 


o 
-5 


o 
.3 


o 
^9 


1 

M 


'a) 


< 


£ 


N 


N 


N 


< 


< 


< 


C* 


►— i 



u 



g 



o 

to 



t5 S- •< 



ADC 

AND 

ASL 

BCC 

BCS 

BEQ 

BIT 

BMI 

BNE 

BPL 

BRK 

BVC 

BVS 

CLC 

CLD 

CLI 

CLV 

CMP 

CPX 

CPY 

DEC 

DEX 

DEY 

EOR 



2 
2 



2 
2 
2 



3 4 
3 4 
5 6 



3 
3 
3 
5 



3 4 



4 
4 
6 



4 
4 
4 
6 



4* 
4* 
7 



4* 
4* 



2 
2 
2 
2 



2 
2 



2** 
2** 
2** 

2** 
2** 



2** 
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Accumulator 
Immediate 
Zero Page 


Zero Page, X 
Zero Page, Y 
Absolute 


X 

3 


>< 

'o 

< 


Implied 
Relative 
(Indirect), X 


(Indirect), Y 
Absolute Indirecl 


INC 




5 


6 


6 


7 












INX 




, , 










2 








INY 














2 








JMP 




. 




3 


. 










5 


JSR 








6 


, 














LDA 




2 3 


4 


4 


4* 


4* 






6 


5* 




LDX 




2 3 


. 


4 4 




4* 












LDY 




2 3 


4 


4 


4* 














LSR 


2 


5 


6 


6 


7 














NOP 




. 










2 








ORA 




2 3 


4 


4 


4* 


4* 




6 


5* 




PHA 














3 








PHP 














3 








PLA 




. 










4 








PLP 














4 








ROL 


2 


5 


6 


6 


7 












ROR 


2 


5 


6 


6 


7 












RTI 


. , 












6 








RTS 














6 








SBC 




I 3 


4 


4 


4* 


4* 






c* 




SEC 














2 








SED 


. t 












2 








SEI 


# 




















STA 




3 


4 


4 


5 












STX* 




3 




L 4 














STY** 


. 


3 


4 


4 














TAX 


. . 












2 








TAY 


. 












2 








TSX 


. 












2 








TXA 


. # 












2 








TXS 


. m 












2 








TYA 


■ 


. 










2 











Add one cycle if indexing across page boundary 

Add one cycle if branch is taken, Add one additional if branching operation 

crosses page boundary 
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Appendix A6: 

6502 Opcodes by Mnemonic and 
Addressing Mode 



Addressing Modes 



www 
^ t^ ^ 

P 5 D 

rf ri rf 
OOO 
en co co 

PQ PQ CO 

< < < 



O 

5 



U 

u 

< 



w 
H 

< 
D 
w 






X 






Q U U U > 
E w W PJ -^ 



^J ~ & & 

H- 1 l-H H-l HH 



D Q 
2 2 



O (J 

< < 

9 9 

P4 P4 
WWW 
p* N N 



5 



w 
< 
O 

PS 
N 



Mnemonics = = = = = 
ADC 6D 7D 79 

AND 2D 3D 39 

ASL OE IE 

BCC 



BCS 
BEQ 
BIT 
BMI 

BNE 
BPL 
BRK 
BVC 

BVS 
CLC 
OLD 
CLI 



2C 



OA 



69 
29 



00 



18 
D8 
58 



61 71 . 65 75 

21 31 . 25 35 

06 16 
90 . 



BO 
FO 

30 

DO 
10 

50 
70 



24 
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Addressing Modes 



X 



w 



O 
en 



§ 

CD 
PQ 
< 



w 



en 

pa 
< 



D 



s 





X 


>H 




(14 


w 


w 


U 


u 


u 


£ 


3 




3 


M 

Q 


i— i 
D 


P* 
Q 


1 


2 


s 


g 


§ 


Z 


2 


C*5 


w 
N 


N 


w 
N 



Mnemonics 
CLV 



CMP 
CPX 
CPY 

DEC 
DEX 
DEY 
EOR 

INC 
INX 
INY 
JMP 

JSR 
LDA 
LDX 
LDY 

LSR 
NOP 
ORA 
PHA 

PHP 
PLA 
PLP 
ROL 

ROR 
RTI 



CD DD D9 

EC . 

CC . 

CE DE . 



4D 5D 59 

EE FE . 

4C . 

20 

AD BD B9 

AE . BE 

AC BC . 



C9 
E0 
CO 



49 



A9 
A2 
A0 



B8 



CA 
88 



E8 
C8 



4E 5E . 4A . 

. . EA 
0D ID 19 . 09 . 
48 

08 

68 

28 

2E 3E . 2A . 

6E 7E . 6A . 
40 



CI Dl 



41 51 



6C 



Al 



Bl 



01 



11 



C5 D5 

E4 . 

C4 . 

C6 D6 



45 55 
E6 F6 



A5 


B5 


A6 


. 


A4 


B4 


46 


56 


05 


15 



26 36 
66 76 
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Addressing Modes 











C* 




























o 
























X 


>^ 




w 






X 


>• 




w 


X 


>- 

pj 




tu 
H 




PJ 


§ 


Q 


H 
U 


U 


U 


£ 


% 




% 




_i 


3 


3 


^4 


D 


w 


w 


w 


H 




p* 


Ph 


P-. 




O 


O 





u 
u 
< 


w 


i— i 


ess; 

t-H 


p* 


p* 


O 


O 


O 




CO 

CQ 

< 


CO 
PQ 
< 


CO 
CD 

< 


i 




Q 

g 




D 

g 


p$ 
w 
N 


p$ 
w 
N 


w 
N 


Mnemonics = 


























RTS 




. 


. 






60 






. 










SBC 


ED 


FD 


F9 




E9 


• 




El 


Fl 




E5 


F5 




SEC 












38 
















SED 


. 


, 








F8 






. 






. 




SEI 


. 










78 






. 






# 




STA 


8D 


9D 


99 






• 




81 


91 




85 


95 




STX 


8E 




















86 






STY 


8C 




, 










. 






84 


94 




TAX 




. 








AA 










. 






TAY 




• 


• 






A8 




• 






• 


• 




TSX 












BA 
















TXA 






, 






8A 
















TXS 






. 






















TYA 


. 










98 










, 
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Appendix Bl: 



The VIC-20 



The Commodore VIC-20 is a very sophisticated, yet inexpensive, small com- 
puter. Unfortunately, the least expensive version of the VIC-20 has too little RAM 
to run the software presented in this book. The unexpanded VIC-20 contains only 3 
K of RAM. To run the software in this book, your VIC must have at least 8 K of 
expansion RAM, beginning at $2000. You may add this extra RAM to your VIC by 
installing the Commodore VIC-1110 8 K Memory Expander or the VIC-1111 16 K 
memory expander. Other manufacturers may also provide appropriate expansion 
RAM. 

If your VIC has at least 8 K of RAM, beginning at $2000, then its screen mem- 
ory is located at $1000. (By contrast, the screen on an unexpanded VIC is located at 
$1E00.) The screen contains 25 rows, each consisting of 22 characters. The address 
of each screen location is 22 ($16) greater than the address of the location directly 
above it. Thus, the screen parameters for the VIC-20 are: 



HOME 


.WORD $1000 




ROWINC 


.BYTE 22 


Address difference from 
one row to the next. 


TVCOLS 


.BYTE 21 


(We count columns from zero 


TVROWS 


.BYTE 24 


(We count rows from zero.) 



Is this all we need to know about the VIC's screen? Nope. With some com- 
puters, you can display any desired character on the screen by simply storing its 
ASCII code in a given screen location. But displaying ASCII characters on the VIC 
screen is a little more difficult. First, there is the matter of color memory. Then 
there's the problem of determining the proper VIC screen code for the character 
you wish to display. So let's examine each of these issues. 
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Color Memory 

In addition to its screen memory, the VIC contains something called color 
memory. Every byte in screen memory has a corresponding byte in color memory. 
As you know, screen memory tells the VICs display circuitry what characters to 
display on screen. But what does color memory do? Not surprisingly, it specifies 
the colors for those characters. 

In a VIC with at least 8 K of expansion RAM, color memory is located at 
$9400, which is $8400 above screen memory. The n'th byte in color memory speci- 
fies the color for the n'th character in screen memory. 

Note that if a portion of color memory contains the code for the screen's back- 
ground color, then no characters will be visible in the corresponding portion of the 
screen — even if the corresponding portion of screen memory contains text. So be- 
fore we try to display a character on the screen, we must store an appropriate (non- 
background) color code in the proper byte of color memory. 

What color code will we use? We could select an arbitrary color — for example, 
black — but it makes more sense to use the color already selected by the user. Ad- 
dress $286 (646 decimal) contains the color code selected by the user, which is used 
by the VIC when it prints on the screen. So before we store any character in screen 
memory, well get the color code in address $286 and store it in the proper byte of 
color memory. That byte will be exactly $8400 above the byte pointed to by 
TV.PTR. 

So now we know how to set color memory when we wish to display text on 
the screen. But how do we determine the proper screen code to use? 



VIC Screen Codes 

To display a given character on the screen, we must store the appropriate 
screen code in screen memory. Table Bl.l shows the VIC screen codes. 

In Table Bl.l, special graphic characters are indicated by an underline. To see 
those special graphics in all their glorious detail, enter the following BASIC pro- 
gram into your VIC and run it: 



100 REM DISPLAY VIC SCREEN CODES 

110 REM IN 16 BY 16 MATRIX 

120 REM 

130 PRINT CHR$(147) : REM CLEAR SCREEN 

REM SCREEN MEMORY 
REM COLOR MEMORY 
REM CURRENT COLOR 



140 SCREEN =4096 
150 CMEM = 37888 
160C = PEEK(646) 
170 REM 
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180FORROW=0TOl5 

190FORCOL==0TOl5 

200 POKE CMEM + COL+22*ROW,C 

210 POKE SCREEN + COL+22*ROW,COL + 16*ROW 

220 NEXT COL,ROW 

230 REM 

240 GOTO 240 



This program clears the screen, pokes the current color code into the appropri- 
ate bytes of color memory, and pokes all 256 screen codes into a 16 by 16 grid of 
screen memory. When it has done so, it will sit in an endless loop in line 240. To 
break it out of this loop, press the RUN/STOP key. 



FIXCHR 

As you can see, the VICs screen codes require a translation from ASCII. How- 
ever, FIXCHR must do more than simply convert an ASCII code to a VIC screen 
code. It must also store the current color code in the appropriate byte of color 
memory. The following source code for FIXCHR will accomplish both of these 
tasks: 



Table Bl.l: The VIC character set. 

RIGHT NYBBLE OF CHARACTER 

-0 -1 -2 -3 -4 -5 -6 -7 -8 -9-A-B-C-P-E -F 

LEFT NYBBLE 
OF CHARACTER 



0- 
1- 
2- 
3- 
4- 
5- 
6- 
7- 

8- 
9- 
A- 
B- 
C- 
D- 
E- 
F- 



@ABCDEFGHIJKLMNO 
PQRSTUVWXYZ[\]t- 

0123456789: ;< = >? 

— abcdefghi jklmno 
pq r s t u vwx y z 

©ABCDEFGHI JKLMNO 

PQRSTUVWXYZ[\]t- 

!"#$%&'()* + '-./ 

0123456789 : ;< = >? 

— abcdefghi jklmno 
pq r s t u vwx y z 



These characters 
are in 
reverse 
video. 



187 



FIXCHR 



PHA 

LDATV.PTR + 1 

PHA 

CLC 

ADC #$84 

STATV.PTR+1 

LDY#0 

LDA $286 



STA (TV.PTR),Y 
PLA 
STATV.PTR + 1 

PLA 

SEC 

CMP #$40 



BCC FIXEND 

CMP #$60 
BCC SUB.40 



SBC #$20 
RTS 



A character is in A. We 
must convert it to proper 
VIC screen code. 

But first, put a color code 

in appropriate byte of 

color memory. (Otherwise, 

that byte in color memory 

might hold the background 

color code, rendering the 

character invisible.) 

Save character to be 

displayed. 

Save high byte... 

...of TV.PTR. 

Make TV.PTR point 

to appropriate byte 

of color memory. 

Get current color code. 
Store it in appropriate 
byte of color memory: 

Restore high byte of TV.PR 
to its original value. 

Retrieve character to be 

displayed. 

Prepare to compare. 

Is it less than $40? (Is 

it a number or a punctuation 

mark?) 

If so, no conversion needed. 

Is it in the range $40...$5F? 

If so, subtract $40 to 

convert from ASCII to 

VIC screen code. 

OK. It's greater than $5F. 

Subtract $20 to convert 

lower case ASCII to VIC. 

and return. 



SUB.40 



SEC 

SBC #$40 



Prepare to subtract. 

Subtract $40 to convert ASCII 
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uppercase char to VIC code. 
FIXEND RTS Return, with A holding 

VIC screen code for ASCII 
char originally in A. 



VIC Keyboard Input Routine 

To get an ASCII character from the VIC keyboard, call the following subrou- 
tine: 



VICKEY JSR $FFE4 Call VIC ROM key scan routine. 

CMP #0 Zero means no key. 

BEQ VICKEY If no key, scan again. 

RTS Return with ASCII character 

from the keyboard. 



This subroutine yields the uppercase ASCII code for any letter key that you 
depress, and the proper ASCII code for any digit key or punctuation key. 



VIC TVT Routine 

To print an ASCII character to the screen, call $FFD2, a VIC ROM routine I 
will refer to as VICTVT. 

Any printable ASCII character passed to $FFD2 will be printed properly to the 
screen at the VICs current TVT screen location. You may change the VICs current 
TVT screen location (which is not the same as the current location used by the 
screen utilities in Chapter 5) by calling VICTVT with the accumulator holding any 
of the control codes from Table Bl.2. 

These control codes may be passed directly to VICTVT, or they may be in- 
cluded within a string of characters to be printed by "PRINT:" or "PR.MSG." For 
example, if you wish to clear the screen before printing a message, just put the 
CLEAR character ($93) at the beginning of your message string, immediately follow- 
ing the STX. The message-printing subroutine will get the CLEAR character and 
pass it to PR.CHR, which, in turn, will pass it through the ROMTVT vector on to 
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CURSOR NORTH 


$91 


CURSOR EAST 


$1D 


CURSOR SOUTH 


$11 


CURSOR WEST 


$9D 


INSERT 


$94 



Table B1.2: Control codes that affect the next character to be printed by V1CTVT. 
Character Name Code Function 



Move current location up by one row. 

Move current location one column to the right. 

Move current location down by one row. 

Move current location left by one column. 

Move current character, and all characters to its 

right, one column to the right. 

Move current character, and all characters to its 

right, one column to the left. 

Set current location to upper left of screen. 

Set current location to the upper left corner and 

clear the screen. 

Select reverse video for following characters. 

Select normal video mode for following 

characters. 



DELETE 

HOME 
CLEAR 

REVERSE 
REVERSE-OFF 



$14 

$13 
$93 

$12 
$92 



the VICTVT routine. The VICTVT routine will then clear the screen and set the cur- 
rent location to the upper left corner of the screen. 

The next character in the string will then be printed in the upper left corner of a 
clear screen. If, instead of printing your message at the top row of a clear screen, 
you'd prefer to print it in the fifth row of a clear screen, just follow the CLEAR 
character with four CURSOR-SOUTH characters ($11, $11, $11, $11), and follow 
the four cursor-south characters with the text of your message. Following the text of 
your message, of course, you must include an ETX ($FF). 

You might never use the VICTVT control codes, but it's good to know they're 
available, should you ever want your VIC's display screen to perform as something 
more than a glass teletype. 



Setting the Top of Memory 

Before you can load the Visible Monitor or its extensions into your VIC, you 
must ensure that your VIC's BASIC interpreter won't use memory above $2FFF. To 
do so, type the following lines into your VIC immediately after you have turned 
it on: 
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POKE 52,47 :POKE 56,47 
POKE 51,255:POKE 55,255 

NEW 



(Be sure to press RETURN after typing each line.) 



Now you may enter and run BASIC programs, without disturbing the memory 
used by the software in this book. Remember: you must set the top of memory, as 
shown above, each time you load the Visible Monitor and its extensions into your 
VIC. (See chapter 13.) 



Invoking the Visible Monitor from BASIC 

Once you have loaded the Visible Monitor (using the BASIC Object Code 
Loader and the "E" series of appendices), you can activate the Visible Monitor from 
BASIC with the following BASIC command: 



SYS 12431 

You may then return from the Visible Monitor to BASIC by pressing "Q" ("Q" 
for Quit). 



Getting Hard Copy 

The Printing Hexdump program, the Printing Disassembler, and the Simple 
Text Editor all direct their output to a printer. Actually, that's not quite true; they 
direct their output to any device you designate as logical file #2, be it a printer, a 
disk file, the modem, or whatever. 

If you wish to output text and data from the software in this book to any de- 
vice, you must first OPEN that device as logical file #2. The easiest way to do that 
is in a BASIC program, prior to activating the Visible Monitor. For example, here's 
a BASIC program that opens a 1200-baud channel on the RS-232 port, and then 
transfers control to the Visible Monitor: 

100 OPEN 2,2,0,CHR$(8) 
110 SYS 12431 
120 CLOSE 2 
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Line 100 opens the RS-232 port as logical file #2 (configuring it to operate at 
1200 baud). Then line 110 passes control to the BASIC ENTRY point of the Visible 
Monitor. (See appendix C13.) From the Visible Monitor, you may then select any 
of the software that prints, and it will direct its output to the RS-232 port. If you 
have a printer connected to that port, you will then get a hard copy of the hex- 
dump, disassembly, or text. 

If you replace line 100 in the above BASIC program with a line that opens a 
DISK file as logical file #2, then you'll direct the hexdump or disassembly to a disk 
file. Or replace line 100 with a line that opens the Commodore printer as device #2, 
and you'll send the hexdump or disassembly to the Commodore printer. Thus, you 
can send the hardcopy output to any device you desire, simply by opening that de- 
vice as logical file #2 before invoking the Visible Monitor through its BASIC entry 
point (at 12431). 

NOTE: If you don't open a device or file as logical device #2, then attempting 
to use any of the printing software in this book will cause it to print every character 
twice on the screen. So if you notice that your VIC has developed a ssttuutteerr 
when you try to print a hexdump or disassembly, the cure is simple: just exit to 
BASIC and open the desired output device as logical file #2 before re-entering the 
Visible Monitor. 
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Appendix B2: 



The Commodore 64 



The Commodore 64 is a very sophisticated, yet inexpensive, small computer. 
Unlike many other computers in its price range, it features 64 K of RAM, so it has 
more than enough RAM to run the software presented in this book. 

The C-64's screen memory is normally located at $400. (As the Commodore 64 
Programmers Reference Guide shows, it is possible to locate the screen elsewhere 
in memory, but we will assume that you have not done so.) The screen contains 25 
rows, each consisting of 40 characters. The address of each screen location is 40 
($28) greater than the address of the location directly above it. Thus, the screen pa- 
rameters for the C-64 are: 



HOME 


.WORD $400 




ROWINC 


.BYTE 40 


Address difference from 
one row to the next. 


TVCOLS 


.BYTE 39 


(We count columns from zero.) 


TVROWS 


.BYTE 24 


(We count rows from zero.) 



Is this all we need to know about the C-64's screen? Nope. With some com- 
puters, you can display any desired character on the screen by simply storing its 
ASCII code in a given screen location. But displaying ASCII characters on the C-64 
screen is a little more difficult. First, there is the matter of color memory. Then 
there's the problem of determining the proper C-64 screen code for the character 
you wish to display. So let's examine each of these issues. 



Color Memory 

In addition to its screen memory, the C-64 contains something called color 
memory. Every byte in screen memory has a corresponding byte in color memory. 
As you know, screen memory tells the C-64's display circuitry what characters to 
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display on screen. But what does color memory do? Not surprisingly, it specifies 
the colors for those characters. 

The C-64's color memory is located at $D800, which is $D400 above screen 
memory. The n'th byte in color memory specifies the color for the n'th character in 
screen memory. 

Note that if a portion of color memory contains the code for the screen's back- 
ground color, then no characters will be visible in the corresponding portion of the 
screen — even if the corresponding portion of screen memory contains text. So be- 
fore we try to display a character on the screen, we must store an appropriate (non- 
background) color code in the proper byte of color memory. 

What color code will we use? We could select an arbitrary color—for example, 
black— but it makes more sense to use the color already selected by the user. Ad- 
dress $286 (646 decimal) contains the color code selected by the user, which is used 
by the C-64 when it prints on the screen. So before we store any character in screen 
memory, we'll get the color code in address $286 and store it in the proper byte of 
color memory. That byte will be exactly $D400 above the byte pointed to by 
TV.PTR. 

So now we know how to set color memory when we wish to display text on 
the screen. But how do we determine the proper screen code to use? 



C-64 Screen Codes 

To display a given character on the screen, we must store the appropriate 
screen code in screen memory. Table B2.1 shows the C-64 screen codes. 



Table B2.1: The C-64 character set. 



LEFT NYBBLE 
OF CHARACTER 

0- 
1- 
2- 
3- 
4- 
5- 
6- 
7- 

8- 
9- 
A- 
B- 
C- 
D- 
E- 
F- 



RIGHT NYBBLE OF CHARACTER 
-0 -1 -2 -3 -4 -5 -6 -7 -8 -9-A-B-C-P-E -F 



©ABCDEFGHI JKLMNO 
PQRSTUVWXYZ[\]t- 
!"#$%&'()* + '-•/ 
0123456789: ;< = >? 
-abcdefghi jklmno 
pq r s t uvwxyz — — — — — 

©ABCDEFGHI JKLMNO 
PQRSTUVWXYZ[\]t- 
!"#$%&'()* + '-■/ 
0123456789 ;< = >? 
-abcdefghi jklmno 
pq r s t uvwxyz — — — — — 



These 
characters 
f- are in 
reverse 
video. 
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In Table B2.1, special graphic characters are indicated by an underline. To see 
those special graphics in all their glorious detail, enter the following BASIC pro- 
gram into your C-64 and run it: 



100 REM DISPLAY C-64 SCREEN CODES 

110 REM IN 16 BY 16 MATRIX 

120 REM 

130 PRINT CHR$(147) : REM CLEAR SCREEN 

140 SCREEN = 1024 : REM SCREEN MEMORY 

150 CMEM = 55296 : REM COLOR MEMORY 

160 C = PEEK(646) : REM CURRENT COLOR 

170 REM 

180FORROW=0TOl5 

190FORCOL=0TOl5 

200 POKE CMEM + COL+40*ROW,C 

210 POKE SCREEN + COL+40*ROW,COL + 16*ROW 

220 NEXT COL,ROW 

230 REM 

240 GOTO 240 



This program clears the screen, pokes the current color code into the appropri- 
ate bytes of color memory, and pokes all 256 screen codes into a 16 by 16 grid of 
screen memory. When it has done so, it will sit in an endless loop in line 240. To 
break it out of this loop, press the RUN/STOP key. 



FIXCHR 

As you can see, the C-64's screen codes require a translation from ASCII. 
However, FIXCHR must do more than simply convert an ASCII code to a C-64 
screen code. It must also store the current color code in the appropriate byte of 
color memory. The following source code for FIXCHR will accomplish both of 
these tasks: 



FIXCHR A character is in A. We 

must convert it to proper 
C-64 screen code. 

But first, put a color code 
in appropriate byte of 
color memory. (Otherwise, 
that byte in color memory 
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PHA 



SUB.40 



FIXEND 



LDA TV.PTR+1 


PHA 


CLC 


ADC #$D4 


STA TV.PTR+1 


LDY#0 


LDA $286 


STA TV.PTR+1 


PLA 


SEC 


CMP #$40 


BCC FIXEND 


CMP #$60 


BCC SUB.40 



SBC #$20 
RTS 

SEC 

SBC #$40 

RTS 



might hold the background 

color code, rendering the 

character invisible.) 

Save character to be 

displayed. 

Save high byte... 

...of TV.PTR. 

Make TV.PTR point 

to appropriate byte 

of color memory. 

Get current color code. 
Store it in appropriate 
byte of color memory: 
to its original value. 

Retrieve character to be 

displayed. 

Prepare to compare. 

Is it less than $40? (Is 

it a number or a punctuation 

mark?) . 

If so, no conversion needed. 

Is it in the range $40...$5F? 

If so, subtract $40 to 

convert from ASCII to 

C-64 screen code. 

OK. It's greater than $5F. 

Subtract $20 to convert 

lower case ASCII to C-64. 

and return. 

Prepare to subtract. 
Subtract $40 to convert ASCII 
uppercase char to C-64 code. 
Return, with A holding 
C-64 screen code for ASCII 
char originally in A. 



C-64 Keyboard Input Routine 

To get an ASCII character from the C-64 keyboard, call the following subrou- 



tine: 



196 



C64KEY 



JSR $FFE4 Call C-64 ROM key scan routine. 

CMP #0 Zero means no key. 

BEQ C64KEY If no key, scan again. 

RTS Return with ASCII character 

from the keyboard. 



This subroutine yields the uppercase ASCII code for any letter key that you 
depress, and the proper ASCII code for any digit key or punctuation key. 



C-64 TVT Routine 

To print an ASCII character to the screen, call $FFD2, a C-64 ROM routine I 
will refer to as C-64TVT. 

Any printable ASCII character passed to $FFD2 will be printed properly to the 
screen at the C-64's current TVT screen location. You may change the C-64's cur- 
rent TVT screen location (which is not the same as the current location used by the 
screen utilities in Chapter 5) by calling C-64TVT with the accumulator holding any 
of the control codes from Table B2.2. 

These control codes may be passed directly to C-64TVT, or they may be in- 
cluded with a string of characters to, be printed by "PRINT:" or "PR.MSG." For 
example, if you wish to clear the screen before printing a message, just put the 



CURSOR NORTH 


$91 


CURSOR EAST 


$1D 


CURSOR SOUTH 


$11 


CURSOR WEST 


$9D 


INSERT 


$94 



Table B2.2: Control codes that affect the next character to be printed by C-64TVT. 
Character Name Code Function 



Move current location up by one row. 

Move current location one column to the right. 

Move current location down by one row. 

Move current location left by one column. 

Move current character, and all characters to its 

right, one column to the right. 

Move current character, and all characters to its 

right, one column to the left. 

Set current location to upper left of screen. 

Set current location to the upper left corner and 

clear the screen. 

Select reverse video for following characters. 

Select normal video mode for following 

characters. 



DELETE 

HOME 
CLEAR 

REVERSE 
REVERSE-OFF 



$14 

$13 
$93 

$12 
$92 
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CLEAR character ($93) at the beginning of your message string, immediately follow- 
ing the STX. The message-printing subroutine will get the CLEAR character and 
pass it to PR.CHR, which, in turn, will pass it through the ROMTVT vector on to 
the C-64TVT routine. The C-64TVT routine will then clear the screen and set the cur- 
rent location to the upper left corner of the screen. 

The next character in the string will then be printed in the upper left corner of a 
clear screen. If, instead of printing your message at the top row of a clear screen, 
you'd prefer to print it in the fifth row of a clear screen, just follow the CLEAR 
character with four CURSOR-SOUTH characters ($11, $11, $11, $11), and follow 
the four cursor-south characters with the text of your message. Following the text of 
your message, of course, you must include an ETX ($FF). 

You might never use the C-64TVT control codes, but it's good to know they're 
available, should you ever want your C-64's display screen to perform as something 
more than a glass teletype. 



Setting the Top of Memory 

Before you can load the Visible Monitor (or the Extended Visible Monitor) into 
your C-64, you must insure that your C-64's BASIC interpreter won't use memory 
above $2FFF. To do so, type the following lines into your C-64 immediately after 
you have turned it on: 



POKE 52,47 :POKE 56,47 
POKE 51,255:POKE 51,255 

NEW 



(Be sure to press RETURN after typing each line.) 



Now you may enter and run BASIC programs, without disturbing the memory 
used by the software in this book. Remember: you must set the top of memory, as 
shown above, each time you load the Visible Monitor and its extensions into your 
C-64. (See chapter 13.) 



Invoking the Visible Monitor from BASIC 

Once you have loaded the Visible Monitor (using the BASIC Object Code 
Loader and the "E" series of appendices), you can activate the Visible Monitor from 
BASIC with the following BASIC command: 
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SYS 12431 



You may then return from the Visible Monitor to BASIC by pressing "Q" ("Q" 
for Quit). 



Getting Hard Copy 

The Printing Hexdump program, the Printing Disassembler, and the Simple 
Text Editor all direct their output to a printer. Actually, that's not quite true; they 
direct their output to any device you designate as logical file #2, be it a printer, a 
disk file, the modem, or whatever. 

If you wish to output text and data from the software in this book to any de- 
vice, you must first OPEN that device as logical file #2. The easiest way to do that 
is in a BASIC program, prior to activating the Visible Monitor. For example, here's 
a BASIC program that opens a 1200-baud channel on the RS-232 port, and then 
transfers control to the Visible Monitor: 



100 OPEN 2,2,0,CHR$(8) 
110 SYS 12431 
120 CLOSE 2 



Line 100 opens the RS-232 port as logical file #2 (configuring it to operate at 
1200 baud). Then line 110 passes control to the BASIC ENTRY point of the Visible 
Monitor. (See appendix C13.) From the Visible Monitor, you may then select any 
of the software that prints, and it will direct its output to the RS-232 port. If you 
have a printer connected to that port, you will then get a hard copy of the hex- 
dump, disassembly, or text. 

If you replace line 100 in the above BASIC program with a line that opens a 
DISK file as logical file #2, then you'll direct the hexdump or disassembly to a disk 
file. Or replace line 100 with a line that opens the Commodore printer as device #2, 
and you'll send the hexdump or disassembly to the Commodore printer. Thus, you 
can send the hardcopy output to any device you desire, simply by opening that de- 
vice as logical file #2 before invoking the Visible Monitor through its BASIC entry 
point (at 12431). 

NOTE: If you don't open a device or file as logical device #2, then attempting 
to use any of the printing software in this book will cause it to print every character 
twice on the screen. So if you notice that your C-64 has developed a ssttuutteerr 
when you try to print a hexdump or disassembly, the cure is simple: just exit to 
BASIC and open the desired output device as logical file #2 before re-entering the 
Visible Monitor. 



199 



Appendix C I : 

Screen Utilities 
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1000 
1010 

1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1 240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
I 330 
1340 
1350 
1360 
13 70 
1380 
1390 
1400 
1410 
1420 
1 430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 



APPENDIX CI: ASSEMBLER LISTING OF 
SCREEN UTILITIES 



SEE CHAPTER 5 OF TOP-DOWN ASSEMBLY LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 



BY KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



******************************************** 

ZERO PAGE BYTES 
****************************************** 



TV.PTR = *FB 



THIS POINTER HOLDS THE 
ADDRESS OF THE CURRENT 
SCREEN LOCATION. 



******************************************** 

SCREEN PARAMETERS 
******************************************** 
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1540 
1550 
1560 
1570 
1530 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
169® 
1700 
1710 
1 720 
i 730 
1 740 
1750 
1760 
1770 
1780 
i790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 



PARAMS = $3000 



THE FOLLOWING ADDRESSES 
MUST BE INITIALIZED TO HOLD 
DATA DESCRIBING THE SCREEN 
ON YOUR SYSTEM. 



HOME 



PARAMS 



HOME IS A POINTER TO CHARACTER 
POSITION IN UPPER LEFT CORNER. 



ROW INC = PARAMS+2 

ROWINC IS A BYTE GIVING 
ADDRESS DIFFERENCE FROM ONE 
ROW TO THE NEXT. 

TVCOLS = PARAMS+3 

TVCOLS IS A BYTE GIVING 
NUMBER OF COLUMNS ON SCREEN. 
(COUNTING FROM ZERO.) 

TVROWS = PARAMS+4 

TVROWS IS A BYTE GIVING 
NUMBER OF ROWS ON SCREEN, 
(COUNTING FROM ZERO.) 

HI PAGE = PARAMS +5 

HI PAGE IS THE HIGH BYTE OF 
THE HIGHEST ADDRESS ON SCREEN. 



BLANK = PARAMS+6 

YOUR SYSTEM ' S CHARACTER 
CODE FOR A BLANK. 

ARROW = PARAMS+7 

YOUR SYSTEM S CHARACTER 
FOR AN UP- ARROW. 

FIXCHR = PARAMS+$11 

FIXCHR IS A SUBROUTINE THAT 
RETURNS YOUR SYSTEM'S 
DISPLAY CODE FOR ASCII. 
CODE. 



0000 



3100 



* = *3100 
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2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 



******************************************** 

CLEAR SCREEN 
******************************************** 



CLEAR SCREEN, PRESERVING THE ZERO PAGE. 



3100 

3103 

3106 
3109 
310C 

310F 

3112 



20C431 CLR.TV JSR TVPUSH 

202B31 ' JSR TVHOME 

5 

AE0330 LDX 1VC0L3 

AC0430 LDY TVROWS 

201331 JSR CLR. XY 

20D331 ' JSR TV. POP 

60 RTS 



SAVE ZERO PAGE BYTES THAT 

WILL BE CHANGED. 

SET SCREEN LOCATION TO UPPER 

LEFT CORNER OF THE SCREEN. 

LOAD X,Y REGISTERS WITH 

X,Y DIMENSIONS OF SCREEN. 

CLEAR X COLUMNS, Y ROWS 

FROM CURRENT SCREEN LOCATION. 

RESTORE ZERO PAGE BYTES THAT 

WERE CHANGED. 

RETURN TO CALLER, WITH ZERO 

PAGE PRESERVED. 



******************************************** 

CLEAR PORTION OF SCREEN 
******************************************** 
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2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 



3113 8E2A31 



3116 
3117 



311B 
311E 



3126 
3127 
3129 



98 
AA 



3118 AD0630 



AC2A31 
91FB 



3120 88 



3121 10FB 



3123 207631 



CA 

10EF 

60 



CLR-XV STX COLS 
5 

TYA 
TAX 



CLRROW LDA BLANK 
5 
5 

LDY COLS 
5 
CLRPOS ST A <TV.PTR),Y 
5 
5 

DEY 
5 
5 

BPL CLRPOS 
5 
5 

JSR TVDOWN 



DEX 

BPL CLRROW 

RTS 



312A 00 



COLS 



.BYTE 



CLEAR X COLUMNS, Y ROWS 

FROM CURRENT SCREEN LOCATION. 

MOVES TV.PTR DOWN BY Y ROWS. 



SET THE NUMBER OF COLUMNS 
TO BE CLEARED. 

NOW X HOLDS NUMBER OF ROWS 
TO BE CLEARED. 

WE'LL CLEAR THEM BY 

WRITING BLANKS TO THE 

SCREEN. 

LOAD Y WITH NUMBER OF 

COLUMNS TO BE CLEARED. 

CLEAR A POSITION BY 

WRITING A BLANK INTO IT. 

ADJUST INDEX FOR NEXT 
POSITION ON THE ROW. 

IF NOT DONE WITH ROW, 
CLEAR NEXT POSITION... 

IF DONE WITH ROW, MOVE 
CURRENT SCREEN LOCATION 
DOWN BY ONE ROW. 

DONE LAST ROW YET? 

IF NOT, CLEAR NEXT ROW... 

IF SO, RETURN TO CALLER. 

DATA CELLs HOLDS NUMBER OF 
COLUMNS TO BE CLEARED. 



TVHOME 
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3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
5550 
3560 
35 70 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 



312B 
312D 

312F 
3130 



A200 
A000 

18 
900A 



TVHOME LDX #0 
LDY #0 



CLC 

BCC TVTOXY 



SET TV.PTR TO UPPER LEFT 
CORNER OF SCREEN, BY 
ZEROING X AND Y AND THEN 
GOING TO X,Y COORDINATES: 



*»*********#******♦************************* 
CENTER 



SET TV.PTR TO SCREEN'S 
CENTER: 



3132 

3135 
3136 



3137 
313A 
313B 



AD0430 

4A 

A8 



AD0330 

4A 
AA 



CENTER LDA TVROWS 
LSR A 
TAY 



LDA TVCOLS 
LSR A 
TAX 



LOAD A WITH TOTAL ROWS. 
DIVIDE IT BY TWO. 
Y NOW HOLDS THE NUMBER OF 
THE SCREEN S CENTRAL ROW. 

LOAD A WITH TOTAL COLUMNS. 
DIVIDE IT BY TWO. 
X NOW HOLDS THE NUMBER OF 
THE SCREEN'S CENTRAL COLUMN. 



X AND Y REGISTERS NOW HOLD 
X,Y COORDINATES OF CENTER 
OF SCREEN. 

SO NOW LET'S SET THE SCREEN 
LOCATION TO THOSE X,Y 
COORDINATES: 



*#**************•***#****#****** #***#*##***#* 
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3700 






3710 






3720 






57Z& 






3740 






3750 






3760 






3770 






3780 






3 790 


313C 


38 


3800 






3810 






3820 






3830 


3i3D 


EC0330 


3840 


3140 


9003 


3850 






3860 


3142 


AE0330 


3870 






3880 






3890 


3145 


38 


3900 


3146 


1X0430 


3910 


3149 


9003 


3920 






3930 






3940 


314B 


AC0430 


3950 






3960 






3970 






3980 


314E 


AD0030 


3990 


3151 


85FB 


4000 


3153 


AD0130 


4010 


3156 


85FC 


4020 






4030 


3158 


08 


4040 


3159 


BS 


4050 






4060 






4070 


315A 


8A 


4080 


315B 


18 


4090 


315C 


65FB 


4100 


315E 


9003 


4110 


3160 


E6FC 


4120 


3162 


18 


4130 






4140 






4150 


3163 


C000 


4160 


3165 


F00B 


4170 


3167 


18 


4180 


3168 


6D0230 


4190 


316B 


9002 


4200 


316D 


E6FC 


4210 


316F 


88 


4220 


3170 


D0F5 


4230 







TVTOXY 



TVTOXY SEC 



CPX TVCOLS 
BCC X.GK 

LDX IVCOLS 



X - OK SEC 

CPY TVROWS 
BCC Y.OK 



LDY TVROWS 



Y.OK LDA HOME 

STA TV.PTR 
LDA HOME+1 

sta rv.p-fR+i 

n 

PHP 
CLD 



TXA 

CLC 

ADC TV.PTR 

BCC COLSET 

INC TV.PTR+1 

CLC 



COLSET CPY #0 

BEQ TV. SET 
ADDROW CLC 

ADC ROW INC 

BCC *+4 

INC TV.PTR+1 

DEY 

BNE ADDROW 



SET CURRENT SCREEN LOCATION 
TO COORDINATES GIVEN BY 
THE X AND Y REGISTERS. 

IS X OUT OF RANGE? 

IF NOT, LEAVE IT ALONE. 

IF X IS OUT OF RANGE, GIVE 

IT ITS HIGHEST LEGAL VALUE. 

NOW X IS LEGAL. 

IS Y OUT OF RANGE? 

IF NOT, LEAVE IT ALONE. 

IF Y IS OUT OF RANGE, GIVE 
Y ITS HIGHEST LEGAL VALUE. 
NOW Y IS LEGAL. 



SET TV.PTR EQUAL TO LOWEST 
SCREEN ADDRESS. 



SAVE CALLER'S DECIMAL FLAG. 
CLEAR DECIMAL FOR BINARY 
ADDITION. 



ADD X TO TV.PTR 



ADD Y*ROWINC TO TV.PTR: 
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4240 






4250 


3172 


85FB 


4260 


3174 


28 


4270 


3175 


60 


4280 






4290 






4300 






4310 






4320 






4330 






4340 






4350 






4360 






4370 






4380 






4390 






4400 






4410 






4420 






4430 






4440 






4450 






4460 






4470 






4480 


3176 


AD0230 


4490 


3179 


18 


4500 


31 7A 


9005 


4510 






4520 


317C 


209B31 


4530 






4540 






4550 


317F 


A901 


4560 






4570 






4580 






4590 


3181 


08 


4600 


3182 


D8 


4610 


3183 


18 


4620 


3184 


65FB 


4630 


3186 


9002 


4640 


3188 


E6FC 


4650 


318A 


85FB 


4660 


318C 


38 


4670 


318D 


AD0530 


4680 


3190 


C5FC 


4690 


3192 


B005 


4700 






4710 


3194 


AD0130 


4720 


3197 


85FC 


4730 






4740 


3199 


28 


4750 


319A 


60 


4760 






4770 







TV. SET STA TV.PTR 
PLP 
RTS 



RESTORE CALLER'S DECIMAL FLAG 
RETURN TO CALLER 



******************************************** 

TVDOWN, TVSKIP, AND TVPLUS 
******************************************** 



TVDOWN LDA ROWING 
CLC 
BCC TVPLUS 

VUCHAR JSR TV. PUT 
5 

; 

TVSKIP LDA #1 



TVPLUS PHP 
CLD 
CLC 

ADC TV.PTR 
BCC *+4 
INC TV.PTR+1 
STA TV.PTR 
SEC 

LDA HI PAGE 
CMP TV.PTR+1 
BCS TV. OK 

LDA HOME+1 
STA TV.PTR+1 

TV. OK PLP 
RTS 



MOVE TV.PTR DOWN BY ONE ROW. 



PUT CHARACTER ON SCREEN 
AND THEN 

SKIP ONE SCREEN LOCATION 
BY INCREMENTING TV.PTR 



TVPLUS ADDS ACCUMULATOR 
TO TV.PTR, KEEPING TV.PTR 
WITHIN SCREEN MEMORY. 



IS CURRENT SCREEN LOCATION 
OUTSIDE OF SCREEN MEMORY? 



IF SO, WRAP AROUND FROM 
BOTTOM TO TOP OF SCREEN. 

RESTORE ORIGINAL DECIMAL 
FLAG AND RETURN TO CALLER. 
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4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 



5 TV. PUT 



319B 201130 



319E A000 
31A0 91FB 
31A2 60 



TV. PUT JSR FIXCHR 



CONVERT ASCII CHARACTER 
TO YOUR SYSTEM'S DISPLAY 
CODE. 



LDY #0 PUT CHARACTER AT CURRENT 

STA <TV.PTR),Y SCREEN LOCATION. 
RTS THEN RETURN. 



DISPLAY A BYTE IN HEX FORMAT 



31 A3 48 

31A4 4 A 

31A5 4A 

31A6 4 A 

31A7 4A 

31A8 206631 



VUBYTE PHA 

LSR A 
LSR A 
LSR A 
LSR A 



JSR ASCII 



SAVE BYTE TO BE DISPLAYED. 
MOVE 4 MOST SIGNIFICANT 
BITS INTO POSITIONS 
FORMERLY OCCUPIED BY 4 
LEAST SIGNIFICANT BITS. 

DETERMINE ASCII CHAR FOR 
HEX DIGIT IN A'S 4 LSB. 
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5320 


31AB 


207C31 




JSR VUCHAR 


5330 










5340 










5350 










5360 


31AE 


68 




PLA 


5370 


31AF 


20B631 




JSR ASCII 


5380 




5 






5390 




S 






5400 


3182 


207C31 




JSR VUCHAR 


5410 










5420 










5430 










5440 










5450 




5 






5460 


31B5 


60 




RTS 


5470 










5480 










5490 










5500 










5510 










5520 










5530 










5540 










5550 










5560 










5570 




! 


************** 


5580 










5590 










5600 










5610 






**************H 


5620 










5630 










5640 










5650 










5660 










5670 


31B6 


08 A< 


3CII 


PHP 


5680 


31B7 


D8 




CLD 


5690 


31 B8 


290F 




AND tt*0F 


5700 


3 IB A 


C90A 




CMP #*0A 


5710 






! 




5720 


31BC 


3002 




BMI DEC I ML 


5 730 






5 




5740 


31BE 


6906 




ADC #6 


5750 






5 




5760 






! 




5770 


31C0 


6930 D 


EC I ML 


ADC #*30 


5780 










5790 










5800 










5810 


31C2 


28 




PLP 


5820 






5 




5830 


31C3 


60 




RfS 


5840 






5 




5850 






5 





DISPLAY THAT ASCII CHAR ON 
SCREN AND ADVANCE TO NEXT 
SCREEN LOCATION. 

RESTORE ORIGINAL BYTE TO A. 
DETERMINE ASCII CHAR FOR 
A'S 4 LSB. 

STORE THIS ASCII CHAR JUST 
TO THE RIGHT OF THE OTHER 
ASCII CHAR, AND ADVANCE TO 
NEXT SCREEN POSITION. 



RETURN TO CALLER. 



HEX-TO-ASCII 



THIS ROUTINE RETURNS ASCII 
FOR 4 LSB IN ACCUMULATOR. 
CLEAR HIGH 4 BITS IN A. 
IS ACCUMULATOR GREATER 
THAN 9? 
IF NOT, IT MUST BE 0-9. 

IF SO, IT MUST BE A-F. 
ADD 36 HEX TO CONVERT IT. 
TO CORRESPONDING ASCII CHAR. 
IF A IS 0-9, ADD 30 HEX 
TO CONVERT IT TO 
CORRESPONDING ASCII CHAR. 

RESTORE ORIGINAL DECIMAL 
FLAG, AND 
RETURN TO CALLER 
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5860 






58 765 






58B0 






38913 






5900 






5910 






5920 






5930 






5940 






5950 






5960 






5970 






5980 






5990 






6000 






6010 






6020 






6030 






6040 






6050 






6060 






6070 






6080 






6090 






6 100 






6110 






6120 


31C4 


68 


6 1 30 


31L5 


AA 


6140 


3IC6 


68 


6150 


31C7 


A8 


6160 






6170 






6180 


31C8 


A5FC 


6190 


31CA 


48 


6200 


31CB 


A5FB 


6210 


31 CD 


48 


6220 






6230 






6240 


31CE 


98 


6250 


31CF 


48 


6260 


31D0 


8A 


6270 


31D1 


48 


6280 






6290 






6300 


31 D2 


60 


6310 






6320 






6330 






6340 






6350 






6360 






6370 






6380 






6390 







******************************************** 

TVPUSH 
********* *********************************** 



SAVE CURRENT SCREEN LOCATION 
ON STACK, FOR CALLER. 



TVPUSH PL A 
TAX 
PLA 
TAY 



PULL RETURN ADDRESS FROM 
STACK AND SAVE IT IN X AND 
Y REGISTERS. 



LDA TV.PTR+1 GET TV.PTR AND 
PHA 

LDA TV.PTR PUSH IT ONTO THE STACK. 
PHA 



TYA 
PHA 
TXA 
PHA 



RTS 



PLACE RETURN ADDRESS 
BACK ON STACK. 



THEN RETURN TO CALLER. 
CALLER WILL FIND TV.PTR ON 
STACK, LOW BYTE ON tOP. 
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6400 






6410 






6420 






6430 






6440 






6450 






6460 






6470 






6480 






6490 






6500 






6510 






6520 






6530 






6540 






6550 






6560 


31D3 


68 


6570 


31D4 


AA 


6530 


31D5 


68 


6590 


31D6 


A8 


6600 






6610 






6620 


31D7 


68 


6630 


31D8 


85FB 


6640 


31DA 


68 


6650 


31DB 


85FC 


6660 






6670 






6680 


31DD 


98 


6690 


31DE 


48 


6700 


31DF 


8A 


6710 


31E0 


48 


6720 






6730 






6740 


31E1 


60 



TV. POP 



RESTORE SCREEN LOCATION 
PREVIOUSLY SAVED ON STACK. 



TV. 


POP 


PLA 
TAX 
PLA 
TAY 






PULL RETURN ADDRESS 
STACK, SAVING IT IN 

. . .AND IN Y 


5 




PLA 
STA 
PLA 
STA 


TV. 
TV. 


PTR 
PTR+1 


RESTORE. . . 
. . .TV. PTR 
. . . FROM 

■ ■ abl nl_»K. . 


5 




TYA 
PHA 
TXA 
PHA 






PLACE RETURN ADDRESS 

WriL/K. ... 

. ..ON STACK. 



RTS 



RETURN TO CALLER. 







CROSS REFERENCE 


LISTINGi 








ADDROW 


3167 


ARROW 


3007 


ASCII 


31B6 


BLANK 


3006 


CENTER 


3132 


CLR.TV 


3100 


CLR.XY 


3113 


CLRPOS 


311E 


CLRROW 


3118 


COLS 


312A 


COLSET 


3163 


DEC I ML 


31C0 


FIXCHR 


3011 


HI PAGE 


3005 


HOME 


3000 


PARAMS 


3000 


ROW INC 


3002 


TV. OK 


3199 


TV. POP 


31D3 


TV. PTR 


00FB 


TV. PUT 


319B 


TV. SET 


3172 


TVCOLS 


3003 


TVDOWN 


3176 


TVHOME 


312B 


TVPLUS 


3181 


TVPUSH 


31C4 


TVROWS 


3004 


TVSKIP 


317F 


TVTOXY 


313C 


VUBYTE 


31A3 


VUCHAR 


317C 


X.OK 


3145 


Y.OK 


314E 
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Appendix C2: 

Visible Monitor (Top Level and 
Display Subroutines) 
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1000 
1010 

1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 



APPENDIX C2: ASSEMBLER LISTING OF 
THE VISIBLE MONITOR 

TOP LEVEL AND DISPLAY SUBROUTINES 



SEE CHAPTER 6 OF TOP-DOWN ASSEMBLY LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC 

BY KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



******************************************** 

EQUATES 
******************************************** 

TV.PTR = *FB 
GETPTR - *FB 



PARAMS 



$3000 ADDRESS OF SYSTEM DATA 
BLOCK. 



TVCOLS = PARAMS+3 

TVCOLS IS A BYTE GIVING 
NUMBER OF COLUMNS ON SCREEN. 
(COUNTING FROM ZERO. ) 
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1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 



ARROW = PARAMS+7 

THIS DATA BYTE HOLDS YOUR 
SYSTEM'S CHARACTER CODE 
FOR AN UP- ARROW. 

ROMKEY = PARAMS+8 

ROMKEY IS A POINTER TO 
YOUR SYSTEM'S SUBROUTINE 
TO GET AN ASCII CHARACTER 
FROM THE KEYBOARD- 



SPACE = *20 
RUBOUT = $7F 
CR = *0D 



ASCII FOR CARRIAGE RETURN. 



REQUIRED SUBROUTINES 



TVSUBS 

CLR.TV 

CLR.XY 

TVHOME 

TVTOXY 

TVDOWN 

VUCHAR 

TVSKIP 

TVPLUS 

VUBYTE 

ASCII 

TVPUSH 

TV. POP 



$3100 

TVSUBS 

TVSUBS+*13 

TVSUBS+*2B 

TVSUBS+*3C 

TVSUBS+*76 

TVSUBS+*7C 

TVSUBS+*7F 

TVSUBS+$81 

TVSUBS+*A3 

TVSUBS+*B6 

TVSUBS+*C4 

TVSUBS+$D3 
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2030 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2130 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
-2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2330 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 



0000 



3200 



* = *3200 



3200 00 



3201 00 



5202 00 



203 00 



3204 00 



3205 0000 



UPDATE 



*+*E^ 



; ****** ************************************** 

5 

; USER-MODIFIABLE DATA 

5 

- ******************************************** 



FIELD 



.BYTE 



REG. A -BYTE 

REG.X .BYTE 

REG.Y .BYTE 

REG.P .BYTE 



NUMBER OF CURRENT FIELD. 
(MUST BE 0-6. ) 

IMAGE OF ACCUMULATOR. 

IMAGE OF X-REGISTER. 

IMAGE OF Y -REGISTER. 

IMAGE OF PROCESSOR STATUS 
REGISTER. 



REGS = REG. A 
SELECT -WORD 



POINTER TO CURRENTLY- 
SELECTED ADDRESS. 



******************************************** 
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2620 






2630 






2640 






2650 






2660 






2670 






2630 






2690 


3207 


08 


2700 


3208 


D8 


2710 






2720 






2 730 






2740 


3209 


201232 


2750 






2760 






2770 


320C 


20E332 


2780 






2790 


320F 


IS 


2800 


3210 


90F6 


2810 






2820 






2830 






2840 






2850 






2860 






2870 






2880 






2890 






2900 






2910 






2920 






2930 






2940 






2950 






2960 






2970 






2930 






2990 






3000 


3212 


20C431 


3010 






5020 






5&3id 


3215 


202532 


3040 


3218 


203532 


3050 


321B 


205D32 


3060 


321E 


20B032 


3070 






3080 


322 1 


20D331 


3090 






3100 






3110 


3224 


60 


3120 






3130 






3140 






3150 







; THE VISIBLE MONITOR 

5 



VISMON PHP 
CLD 



JSR DSPLAY 



JSR UPDATE 



CLC 

BCC VI3M0N+1 



SAVE CALLER'S STATUS FLAGS. 
CLEAR DECIMAL MODE, SINCE 
ARITHMETIC OPERATIONS IN THIS 
BOOK ARE ALWAYS BINARY. 

PUT MONITOR DISPLAY ON 
SCREEN. 

GET USER REQUEST AND 
HANDLE IT. 

LOOP BACK TO DISPLAY... 



MONITOR-DISPLAY 



DSPLAY JSR TVPUSH 



JSR CLRMON 
JSR LINE. 1 
JSR LINE. 2 
JSR LINE. 3 



JSR TV. POP 



RTS 



SAVE ZERO PAGE BYTES THAT 
WILL BE MODIFIED. 

CLEAR A PORTION OF SCREEN. 
DISPLAY LABEL LINE. 
DISPLAY DATA LINE. 
DISPLAY ARROW LINE. 

RESTORE ZERO PAGE BYTES 
THAT WERE SAVED ABOVE. 

RETURN TO CALLER. 
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CLEAR PORTION OF SCREEN 



3225 A200 

3227 A000 

3229 203C31 

322C AE0330 



322F A003 

3231 201331 
3234 60 



CLRMON LDX #0 
LDY #0 
JSR TVTOXY 

LDX TVCOLS 



LDY #3 

JSR CLR.XY 
RTS 



SET TV.PTR TO COLUMN 0, 
ROW 0. 



LOAD X WITH NUMBER OF 
COLUMNS TO BE CLEARED. 

LOAD Y WITH NUMBER OF 
ROWS (3) TO BE CLEARED. 

CLEAR X COLUMNS, Y ROWS. 

RETURN TO CALLER. 



DISPLAY LABEL LINE 



3235 A20B 
3237 A000 
3239 203C31 



LINE. 1 LDX #11 
LDY #0 
JSR TVTOXY 



X-COORDINATE OF LABEL "A". 
Y-COORDINATE OF LABEL "A". 
SET TV.PTR TO POINT TO 
SCREEN LOCATION OF LABEL "A" 
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3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 



323C 
323E 



3241 
3244 
3247 
324A 
324D 
324F 

3251 
3252 



3253 



A000 




LDY 


#0 


8C5232 


5 


STY 


LBLCOL 


B95332 


5 

LBLOOP 


LDA 


LABELS, Y 


207C31 




JSR 


VUCHAR 


EE5232 




INC 


LBLCOL 


AC5232 




LDY 


LBLCOL 


C00A 




CPY 


#10 


D0F0 




BNE 


LBLOOP 


60 


5 


RTS 




00 


LBLCOL 
5 

; 


-BYTE 


4120205820 


5 

"I 

5 
LABELS 


.BYTE A X 


2059202050 









PUT LABELS ON SCREENS 
INITIALIZE LABEL COLUMN 
COUNTER. 

GET A CHARACTER AND 
PUT IT ON THE SCREEN. 
PREPARE FOR NEXT CHARACTER. 
DONE LAST CHARACTER? 

IF NOT, DO NEXT CHARACTER. 

RETURN TO CALLER. 

DATA CELL: HOLDS COLUMN 

OF CHARACTER TO BE COPIED. 



5 

; DISPLAY DATA LINE 

5 



325D A200 



325F A001 



3261 203C31 



3264 AD0632 

3267 20A331 

326A AD0532 

326D 20A331 



LINE. 2 LDX #0 



LDY #1 



JSR TVTOXY 



LDA SELECT+1 
JSR VUBYTE 
LDA SELECT 
JSR VUBYTE 



LOAD X WITH STARTING 
COLUMN OF DATA LINE. 

LOAD Y WITH ROW NUMBER 
OF DATA LINE. 

SET TV.PTR TO POINT TO 

THE START OF THE DATA LINE. 

DISPLAY HIGH BYTE OF 
CURRENTLY-SELECTED ADDRESS. 
DISPLAY LOW BYTE OF 
CURRENTLY-SELECTED ADDRESS. 
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3270 207F31 

3273 209532 

3276 48 

3277 20A331 

327A 207F31 

327D 68 

327E 207C31 

3281 207F31 



JSR TVSKIP 

JSR GET.SL 

PHA 

JSR VUBYTE 

JSR TVSKIP 

PLA 

JSR VUCHAR 

JSR TVSKIP 



SKIP ONE SPACE AFTER 
ADDRESS FIELD. 

GET CURRENTLY-SELECTED 
BYTE. 

SAVE IT. 

DISPLAY IT, IN HEX FORMAT, 
IN FIELD 1. 

SKIP ONE SPACE AFTER FIELD 
1. 

RESTORE CURRENTLY-SELECTED 
BYTE TO ACCUMULATOR. 

DISPLAY IT IN CHARACTER 
FORMAT, IN FIELD 2. 

SKIP ONE SPACE AFTER FIELD 2. 



3284 A200 

3286 BD0132 

3289 20A331 

328C 207F31 



328F E8 

3290 E004 

3292 D0F2 

3294 60 



LDX #0 
5 
VUREGS LDA REGS,X 
JSR VUBYTE 
JSR TVSKIP 



INX 

CPX #4 
BNE VUREGS 

RTS 



DISPLAY 6502 REGISTER 
IMAGES IN FIELDS 3-6: 

START WITH ACCUMULATOR 

IMAGE. 

LOOK UP THE REGISTER IMAGE. 

DISPLAY IT IN HEX FORMAT. 

SKIP ONE SPACE AFTER HEX 

FIELD. 

GET READY FOR NEXT REGISTER. 
DONE FOUR REGISTERS YET? 
IF NOT, DO NEXT ONE... 

IF ALL REGISTERS DISPLAYED, 
RETURN. 



GET SELECTED BYTE 
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4 780 






4790 






4800 






4810 






4820 






4830 






4840 






4850 


3295 


A5FB 


4860 


3297 


48 


4870 


3298 


A6FC 


4880 






4890 


329A 


AD0532 


4900 


329D 


85FB 


4910 


329F 


AD0632 


4920 


32A2 


85FC 


4930 






4940 


32A4 


A000 


4950 


32A6 


B1FB 


4960 


32A8 


A8 


4970 


32A9 


68 


4980 


32AA 


85FB 


4990 


32AC 


86FC 


5000 


32AE 


98 


5010 


32AF 


60 


5020 






5030 






5040 






5050 






5060 






5070 






5080 






5090 






5100 






5110 






5120 






5130 






5140 






5150 






5160 






5170 






5180 






5190 






5200 






5210 






5220 


32B0 


AC0032 


5230 


32B3 


38 


5240 


32B4 


C007 


5250 


32B6 


9005 


5260 


32B8 


A000 


5270 


32BA 


8C0032 


5280 


32BD 


B9CD32 


5290 






5300 


32C0 


AA 


5310 







*****#»*********#****************#***#•*****# 



GET.SL LDA GETPTR 
PHA 
LDX GETPTR+1 



GET BYTE POINTED TO BY 
THE SELECT POINTER 
(PRESERVING THE ZERO PAGE), 



LDA 


SELECT 


STA 


GETPTR 


LDA 


SELECT+1 


STA 


GETPTR+1 


LDY 


#0 


LDA 


(GETPTR) ,Y 


TAY 




PLA 




STA 


GETPTR 


STX 


GETPTR+1 


TYA 




RfS 





RETURN TO CALLER. 



DISPLAY ARROW LINE 



LINE. 3 LDY FIELD 
SEC 

CPY #7 
BCC FLD.OK 
LDY #0 
STY FIELD 

FLD.OK LDA FIELDS, Y 

TAX 



LOOK UP CURRENT FIELD. 



LOOK UP COLUMN NUMBER FOR 
CURRENT FIELD. 
THAT WILL BE THE ARROW'S 
X -COORD I NATE. 
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5320 


32C1 


A002 




LDY #2 


5330 


32C3 


203C31 




JSR TVTOXY 


5340 






5 




5350 






5 




5360 


32C6 


AD0730 




LDA ARROW 


5370 


32C9 


207C31 




JSR VUCHAR 


5380 


32CC 


60 




RTS 


5390 






5 




5400 






5 




5410 


32CD 


030608 


FIELDS 


.BYTE 3,6,8 


5420 


32D0 


0B0E 




.BYTE *0B,*0E 


5430 


32D2 


1114 




■BYTE *11,*14 


5440 










5450 










5460 










5470 










5480 










5490 










5500 











SET ARROW'S Y-COORDINATE. 
MAKE TV.PTR POINT TO ARROW 
LOCATION. 

PLACE AN UP-ARROW IN 

THAT LOCATION 

AND RETURN TO CALLER. 



THIS DATA AREA SHOWS WHICH 
COLUMN SHOULD GET AN UP- 
ARROW TO INDICATE ANY ONE 
OF FIELDS 0-6. CHANGING 
ONE OF THESE VALUES WILL 
CAUSE THE UP-ARROW TO APPEAR 
IN A DIFFERENT COLUMN WHEN 
INDICATING A GIVEN FIELD. 







CROSS REFERENCE 


LISTING: 








ARROW 


Z(Q&7 


ASCII 


31B6 


CLR.TV 


3100 


CLR.XY 


3113 


CLRMON 


3225 


CR 


000D 


DSPLAY 


3212 


FIELD 


3200 


FIELDS 


32CD 


FLD.OK 


32BD 


GET.SL 


3295 


GETPTR 


00FB 


LABELS 


3253 


LBLCOL 


3252 


LBLOOP 


3241 


LINE. 1 


3235 


LINE. 2 


325D 


LINE. 3 


32B0 


PARAMS 


3000 


REG. A 


3201 


REG.P 


3204 


REG.X 


3202 


REG.Y 


3203 


REGS 


3201 


ROMKEY 


3008 


RUBOUT 


007F 


SELECT 


3205 


SPACE 


0020 


TV. POP 


31D3 


TV.PTR 


00FB 


TVCOLS 


3003 


TVDOWN 


3176 


TVHOME 


31 2B 


TVPLUS 


3181 


TVPUSH 


31C4 


TVSKIP 


31 7F 


TVSUBS 


3100 


TVTOXY 


313C 


UPDATE 


32E3 


VISMON 


3207 


VUBYTE 


31A3 


VUCHAR 


31 7C 


VUREGS 


3286 
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Appendix C3: 

Visible Monitor (Update Subroutine) 
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1000 
1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 



APPENDIX C3: ASSEMBLER LISTING OF 
THE VISIBLE MONITOR 



UPDATE SUBROUTINE 



SEE CHAPTER 6 OF TOP-DOWN ASSEMBLY-LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 



BY KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



******************************************** 

EQUATES 
******************************************** 



TV.PTR = *FB 



PARAMS = $3000 ADDRESS OF SYSTEM DATA 
BLOCK. 



ARROW = PARAMS+7 

THIS DATA BYTE HOLDS YOUR 
SYSTEM'S CHARACTER CODE 
FOR AN UP-ARROW. 

ROMKEY = PARAMS+8 

ROMKEY IS A POINTER TO 
YOUR SYSTEM'S SUBROUTINE 
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1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 



TO GET AN ASCII CHARACTER 
FROM THE KEYBOARD. 

DUMMY = PARAMS+$10 

DUMMY RETURNS WITHOUT DOING 
ANYTHING. 



SPACE = *20 

CLRKEY = 147 CLEAR SCREEN KEY 

CR = *0D ASCII FOR CARRIAGE RETURN. 



REQUIRED SUBROUTINES 



TVSUBS = $3100 
CLR.TV - TVSUBS 



CLR.TV CLEARS THE SCREEN. 



VMSUBS = $3200 

STARTING PAGE OF VISIBLE 
MONITOR CODE. 

GET.SL « VMSUBS+*95 

GET.SL GETS THE CURRENTLY- 
SELECTED BYTE. 
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2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2190 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 

2330 
234© 
2350 
2560 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 



******************************************** 

USER-MODIFIABLE DATA 
******************************************** 



FIELD = VMSUBS 





REG. A = 


VMSUBS+1 


5 


REG.X = 


VMSUBS+2 




REG.Y| - 


VMSUBS+3 




REG.P = 


VMSUBS+4 



REGS = REG- A 
SELECT = VMSUBS+5 



NUMBER OF CURRENT FIELD. 
(MUST BE 0-6. ) 

IMAGE OF ACCUMULATOR. 

IMAGE OF X-REGISTER. 

IMAGE OF Y -REGISTER. 

IMAGE OF PROCESSOR STATUS 
REGISTER. 



POINTER TO CURRENTLY- 
SELECTED ADDRESS. 



0000 



32E0 



32E0 6C0830 



******************************************** 

KEYBOARD INPUT ROUTINE 
******************************************** 

* = VMSUBS+*E0 

GETKEY JMP (ROMKEY) JSR GETKEY CALLS THE 
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2630 






2640 






2650 






2660 






2670 






2680 






2690 






2700 






2710 






2720 






2730 






2740 






2750 






2760 






2770 






2780 






2790 






2800 






2810 






2820 






2830 






2840 






2850 


32E3 


20E032 


2860 






2870 






2880 


32E6 


C91D 


2890 


32E8 


D010 


2900 






2910 


32EA 


EE0032 


2920 


32ED 


AD0032 


2930 


32F0 


C907 


2940 


32F2 


D005 


2950 


32F4 


A900 


2960 


32F6 


8D0032 


2970 


32F9 


60 


2980 






2990 






3000 


32FA 


C99D 


3010 


32FC 


D00B 


3020 






3030 


32FE 


CE0032 


3040 


3301 


1005 


3050 


3303 


A906 


3060 


3305 


8D0032 


3070 


3308 


60 


3080 






3090 






3100 


3309 


C920 


3110 


330B 


D009 


3120 






3130 


330D 


EE0532 


3140 


3310 


D003 


3150 


3312 


EE0632 



COMMODORE KEYBOARD INPUT 
ROUTINE INDIRECTLY. 



MONITOR-UPDATE 



UPDATE JSR GETKEY 



CMP #$1D 
BNE IF.LFT 

NEXT.F INC FIELD 
LDA FIELD 
CMP #7 
BNE UP-EX1 
LDA #0 
STA FIELD 

UP.EX1 RTS 



IF.LFT CMP #*9D 
BNE IF.SP 

PREV.F DEC FIELD 
BPL UP.EX2 
LDA #6 
STA FIELD 

UP.EX2 RTS 



IF.SP CMP #SPACE 
BNE IF.CR 

; 

INC.SL INC SELECT 
BNE *+5 
INC SELECT+1 



GET A CHARACTER FROM THE 
KEYBOARD. 

IS IT THE RIGHT-ARROW KEY? 
IF NOT, PERFORM NEXT TEST. 

IF SO, SELECT NEXT FIELD. 

IF ARROW WAS UNDER RIGHT- 
MOST FIELD, PLACE IT UNDER 
LEFT-MOST FIELD. 

THEN RETURN TO CALLER. 



IS IT THE LEFT-ARROW KEY? 
IF NOT, PERFORM NEXT TEST. 

IF SO, SELECT PREVIOUS 
FIELD: THE FIELD TO THE 
LEFT OF THE CURRENT FIELD. 

THEN RETURN 



IS IT THE SPACE BAR? 

IF NOT, PERFORM NEXT TEST. 

IF SO, STEP FORWARD THROUGH 
MEMORY BY INCREMENTING 
THE POINTER THAT SELECTS 
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3160 






5 






3170 


3315 


60 




RTS 




3180 






5 






5190 






9 






3200 


3316 


C90D 


IF.CR 


CMP 


#CR 


3210 


3318 


D00C 




BNE 


IFCHAR 


3220 






; 






3230 


331 A 


AD0532 


DEC.SL 


LDA 


SELECT 


3240 


33 ID 


D003 




BNE 


#+5 


3250 


331F 


CE0632 




DEC 


SELECT+1 


3260 


3322 


CE0532 




DEC 


SELECT 


3270 


3325 


60 




RTS 




3280 






5 






3290 






5 






3300 


3326 


AE0032 


IF CHAR 


LDX 


FIELD 


3310 


3329 


E002 




CPX 


#2 


3320 


332B 


D01B 




BNE 


IF- GO 


3330 






5 






3340 


332D 


A8 


PUT.SL 


TAY 




3350 


332E 


A5FB 




LDA 


TV.PTR 


3360 


3330 


48 




PHA 




3370 


3331 


A6FC 




LDX 


TV.PTR+1 


3380 


3333 


AD0532 




LDA 


SELECT 


3390 


3336 


85FB 




STA 


TV.PTR 


3400 


3338 


AD0632 




LDA 


SELECT+1 


3410 


333B 


85FC 




STA 


TV.PTR+1 


3420 


333D 


98 




TYA 




3430 


333E 


A000 




LDY 


#0 


3440 


3340 


91FB 




STA 


(TV.PTR) ,Y 


3450 


3342 


86FC 




STX 


TV.PTR+1 


3460 


3344 


68 




PLA 




3470 


3345 


85FB 




STA 


TV.PTR 


3480 


3347 


60 




RTS 




3490 






5 






3500 






5 






3510 


3348 


C947 


IF. GO 


CMP 


#'G' 


3520 


334A 


D023 




BNE 


IF. HEX 


3530 






; 






3540 


334C 


AC0332 


GO 


LDY 


REG.Y 


3550 


334F 


AE0232 




LDX 


REG.X 


3560 


3352 


AD0432 




LDA 


REG.P 


3570 


3355 


48 




PHA 




3580 


3356 


AD0132 




LDA 


REG. A 


3590 


3359 


28 




PLP 




3600 


335A 


206C33 




JSR 


CALL IT 


3610 


335D 


08 




PHP 




3620 


335E 


8D0132 




STA 


REG. A 


3630 


3361 


8E0232 




STX 


REG.X 


3640 


3364 


8C0332 




STY 


REG.Y 


3650 


3367 


68 




PLA 




3660 


3368 


8D0432 




STA 


REG.P 


3670 


336B 


60 




RTS 




3680 






5 






3690 






5 







THE ADDRESS TO BE DISPLAYED. 
THEN RETURN TO CALLER. 



IS IT THE CARRIAGE RETURN? 
IF NOT, PERFORM NEXT TEST. 

IF SO, STEP BACKWARD THROUGH 
MEMORY BY DECREMENTING THE 
POINTER THAT SELECTS THE 
ADDRESS TO BE DISPLAYED. 
THEN RETURN. 



IS ARROW UNDER CHARACTER 
FIELD (FIELD 2>? 
IF NOT, PERFORM NEXT TEST. 
IF SO, 
STORE THE 

CHARACTER IN THE CURRENTLY- 
SELECTED ADDRESS. 
(PRESERVING THE ZERO PAGE. ) 



THEN RETURN. 



IS IT 'G' FOR GO? 

IF NOT, PERFORM NEXT TEST. 

IF 80, LOAD REGISTERS 
FROM REGISTER IMAGES. . . 



AND CALL SELECTED ADDRESS. 
WHEN THE SUBROUTINE RETURNS, 
SAVE REGISTER VALUES IN 
REGISTER IMAGES. 



THEN RETURN TO CALLER. 
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3700 


336C 


6C0532 


CALL IT 


JMP (SELECT) 


3710 










3720 










3730 










3740 










3750 


336F 


48 


IF. HEX 


PHA 


3760 


3370 


20D533 




JSR BINARY 


3770 






5 




3780 






5 




3790 






5 




3800 


3373 


304J9 




BM1 IF.CLR 


3810 






5 




3820 






5 




3830 






5 




3840 


3375 


A8 




TAY 


3850 


3376 


68 




PLA 


3860 


3377 


98 




TYA 


3870 






5 




3880 


3378 


AE0032 




LDX FIELD 


3890 


337B 


D014 




BNE NOTADR 


3900 






5 




3910 


337D 


A203 


ADRFLD 


LDX #3 


3920 


337F 


18 


ADLOOP 


CLC 


3930 


3380 


0E0532 




ASL SELECT 


3940 


3383 


2E0632 




ROL SELECT* 1 


3950 


3386 


CA 




DEX 


3960 


3387 


10F6 




BPL ADLOOP 


3970 


3389 


98 




TYA 


3980 


338A 


0D0532 




ORA SELECT 


3990 


338D 


8D0532 




STA SELECT 


4000 


3390 


60 




RTS 


4010 






5 




4020 






5 




4030 


3391 


E001 


NOTADR 


CPX #1 


4040 


3393 


D018 




BNE REQFLD 


4050 






; 




4060 






5 




4070 


3395 


290F 


ROL-SL 


AND #*0F 


4080 


3397 


48 




PHA 


4090 


3398 


209532 




JSR GET.SL 


4100 


339B 


0A 




ASL A 


4110 


339C 


0A 




ASL A 


4120 


339D 


0A 




ASL A 


4130 


339E 


0A 




ASL A 


4140 


339F 


29F0 




AND #$F0 


4150 


33 A 1 


8DAC33 




STA TEMP 


4160 


33A4 


68 




PLA 


4170 


33A5 


0DAC33 




ORA TEMP 


4180 


33A8 


202D33 




JSR PUT.SL 


4190 


33AB 


60 




RTS 


4200 






5 




4210 


33AC 


00 


TEMP 


-BYTE 


4220 
4230 






5 





JSR CALL IT CALLS THE 
CURRENTLY-SELECTED ADDRESS , 
INDIRECTLY. 



SAVE KEYBOARD CHARACTER. 

IS IT ASCII CHAR FOR 0-9 OR 

A-F? IF SO, CONVERT TO BINARY. 



IF KEYBOARD CHAR WAS N 
0-9 OR A-F, PERFORM NEXT 
TEST. 

PULL KEYBOARD CHARACTER 
FROM STACK, WHILE SAVING 
BINARY EQUIVALENT IN A AND Y. 

IS ARROW UNDER ADDRESS 
FIELD (FIELD 0)? 

SINCE ARROW IS UNDER ADDRESS 
FIELD, ROLL HEX DIGIT INTO 
ADDRESS FIELD BY ROLLING IT 
IT INTO THE POINTER THAT 
SELECTS THE DISPLAYED 
ADDRESS. 



THEN RETURN. 



IS ARROW UNDER FIELD 1? 
IF NOT, IT MUST BE UNDER 
A REGISTER FIELD. 

ROLL 4 LSB IN A INTO 
CURRENTLY-SELECTED BYTE. 
GET THE CURRENTLY-SELECTED 
BYTE AND SHIFT LEFT 4 TIMES. 



PUT IT IN CURRENTLY-SELECTED 
ADDRESS AND RETURN. 
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4240 






5 




4250 


33AD 


CA 


REBFLD 


DEX 


4260 


33AE 


CA 




DEX 


4270 


33AF 


CA 




DEX 


4280 


33B0 


A003 




LDY #3 


4290 






; 




4300 


33B2 


18 


RGLOOP 


CLC 


4310 


33B3 


1E0132 




ASL REGS,X 


4320 


33B6 


88 




DEY 


4330 


33B7 


10F9 




BPL RGLOOP 


4340 


33B9 


1D0132 




ORA REGS,X 


4350 


33BC 


9D0132 




ST A REGS,X 


4360 


33BF 


60 




RTS 


4370 






5 




4380 






5 




4390 


33C0 


68 


IF.CLR 


PLA 


4400 


33C1 


C993 




CMP #CLRKEY 


4410 






5 




4420 


33C3 


D004 




BNE NOTCLR 


4430 






5 




4440 


33C5 


200031 




JSR CLR.TV 


4450 


33C8 


60 




RTS 


4460 






5 




4470 






5 




4480 


33C9 


C951 


NOTCLR 


CMP #'Q' 


4490 


33CB 


D004 




BNE OTHER 


4500 










4510 










4520 










4530 






; 




4540 






5 




4550 


33CD 


68 




PLA 


4560 


33CE 


68 




PLA 


4570 






5 




4580 


33CF 


28 




PLP 


4590 






5 




4600 






5 




4610 


33D0 


60 




RTS 


4620 










4630 










4640 










4650 










4660 






; 




4670 






5 




4680 


33D1 


201030 


OTHER 


JSR DUMMY 


4690 






5 




4700 






; 




4710 






5 




4720 






5 




4730 


33D4 


60 




RTS 


4740 






; 




4750 










4760 










4770 











THE ARROW MUST BE UNDER A 
REGISTER IMAGE: FIELD 3, 
4, 5, OR 6. 



ROLL HEX DIGIT INTO 
APPROPRIATE REGISTER IMAGE. 



RESTORE KEYBOARD CHARACTER. 
IS IT THE CLEAR SCREEN KEY? 

IF NOT, PERFORM NEXT TEST. 

IF IT IS, THEN CLEAR THE 
SCREEN AND RETURN. 



IS IT Q' FOR QUIT? 

IF NOT, PERFORM NEXT TEST. 

IT IS Q' FOR QUIT. THE 
USER WANTS TO RETURN TO THE 
CALLER OF THE VISIBLE 
MONITOR. SO LET'S DO THAT: 
POP UPDATE 'S RETURN ADDRESS. 



RESTORE INITIAL 6502 FLAGS. 
VISMONS RETURN ADDRESS IS 
NOW ON THE STACK. 
SO RETURN TO CALLER OF 
VISMON. IN THIS WAY, 
VISMON CAN BE USED BY ANY 
CALLER TO GET AN ADDRESS 

FROM THE USER. 

REPLACE THIS CALL TO 
DUMMY WITH A CALL TO ANY 
SUBROUTINE THAT EXTENDS 
FUNCTIONALITY OF THE 
VISIBLE MONITOR. 
THEN RETURN. 
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4780 






4790 






4800 






4810 






4820 






4830 






4840 






4850 






4860 






4870 






4880 






4890 






4900 






49i0 






4920 






4930 






4940 






4950 






4960 






4970 






4980 






4990 






5000 


33D5 


38 


5010 


33D6 


E930 


5020 


33D8 


900F 


5030 


33DA 


C90A 


5040 


33DC 


900E 


5050 


33DE 


E907 


5060 


33E0 


C910 


5070 


33E2 


B005 


5080 


33E4 


38 


5090 


33E5 


C90A 


5100 


33E7 


B003 


5110 


33E9 


A9FF 


5120 


33EB 


60 


5130 






5140 


33EC 


A200 


5150 


33EE 


60 



ASCII TO BINARY 



IF ACCUMULATOR HOLDS ASCII 
0-9 OR A-F, THIS ROUTINE 
RETURNS BINARY EQUIVALENT- 
OTHERWISE, IT RETURNS *FF. 



BINARY 


SEC 






SBC 


**3fl 




BCC 


BAD 




CMP 


#*0A 




BCC 


GOOD 




SBC 


#7 




CMP 


#*10 




BCS 


BAD 




SEC 






CMP 


#*0A 




BCS 


GOOD 


BAD 


LDA 


#*FF 




RTS 




5 
GOOD 


LDX 
RTS 


#0 
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CROSS REFERENCE LISTING: 



ADLOOP 


33 7F 


BINARY 


33D5 


CR 


000D 


GET . SL 


3295 


IF.CLR 


33C0 


IF.LFT 


32FA 


NEXT.F 


32EA 


PARAMS 


3000 


REG.P 


3204 


REGS 


3201 


SELECT 


3205 


TVSUBS 


3100 


VMSUBS 


3200 



ADRFLD 


337D 


CALL IT 


336C 


DEC.SL 


331 A 


GETKEY 


32E0 


IF.CR 


3316 


IF.SP 


3309 


NOTADR 


3391 


PREV.F 


32FE 


REG.X 


3202 


RGLOOP 


33B2 


SPACE 


0020 


UP.EX1 


32F9 



ARROW 

CLR.TV 

DUMMY 

GO 

IF. GO 

IF CHAR 

NOTCLR 

PUT . SL 

REG.Y 

ROL.SL 

TEMP 

UP.EX2 



3007 
3100 
3010 
334C 
3348 
3326 
33C9 
332D 
3203 
3395 
33AC 
3308 



BAD 

CLRKEY 
FIELD 
GOOD 
IF. HEX 
INC. SL- 
OT HER 
REG. A 
REGFLD 
ROMKEY 
TV.PTR 
UPDATE 



33E9 
0093 
3200 
33EC 
336F 
330D 
33D1 
3201 
33AD 
3008 
00FB 
32E3 
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Appendix C4: 

Print Utilities 



1000 
1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

i480 

1490 

1500 

1510 

1520 

1530 



APPENDIX C4: ASSEMBLER LISTING OF 
PRINT UTILITIES 



SEE CHAPTER 7 OF TOP-DOWN ASSEMBLY-LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 

BY KEN SKIER 



COPYRIGHT <C> 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



******************************************** 

CONSTANTS 
******************************************** 



CR 
ETX 

LF 

OFF 

ON 



= *0D 
= *FF 

= *0A 
= 
= *FF 



CARRIAGE RETURN. 

THIS CHARACTER MUST 
TERMINATE ANY MESSAGE STR INC- 
LINE FEED. 
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1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 



EXTERNAL ADDRESSES 



PARAMS = *3000 



ADDRESS OF SYSTEM DATA BLOCK. 



ROMPRT = PARAMS+$0C 

POINTER TO ROM ROUTINE THAT 
SENDS CHAR TO SERIAL OUTPUT. 



ROMTVT = PARAMS+$0A 

POINTER TO ROM ROUTINE THAT 
PRINTS A CHAR TO THE SCREEN. 



USROUT 



TVSUBS 
ASCII 



PARAMS+$0E 

POINTER TO USER-WRITTEN 
CHARACTER OUTPUT ROUTINE. 



$3100 
TVSUBS+*B6 



VMPAGE = *3200 



VISIBLE MONITOR STARTING 
PAGE 



SELECT 
GET.SL 
INC.SL 



VMPAGE+5 

VMPAGE+$95 

VMPAGE+*10D 
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2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 



5 ******************************************** 
VARIABLES 
******************************************** 



0000 = 3400 



3400 00 



3401 FF 



3402 00 



3403 00 



3404 00 



3405 00 



3406 0000 



* = *3400 
PRINTR .BYTE OFF 
TVT .BYTE ON 



USER 



CHAR 



.BYTE OFF 



.BYTE 



REPEAT .BYTE 



TEMP.X .BYTE 



RETURN -WORD 



PRINTER OUTPUT FLAB. 
TVT OUTPUT FLAG. 



OUTPUT FLAG FOR USER- 
PROVIDED OUTPUT SUBROUTINE. 

CHARACTER MOST RECENTLY 
PRINTED BY PR.CHR. 
CHAR=00 MEANS PR.CHR HAS 
NEVER PRINTED A CHARACTER. 



THIS BYTE IS USED AS A 
COUNTER BY SPACES, CHARS, 
AND CR.LFS. 



DATA CELLS USED BY PR.MSG. 



THIS POINTER IS USED BY 
PUSHSL AND POP.SL. 



******************************************** 

DEVICE SELECT SUBROUTINES 
******************************************** 
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2620 






. 




2630 






'. 




2640 






. 




2650 






. 




2660 






. 




2670 






- 




2680 


3408 


A9FF 


TVT . ON 


1 LDA #ON 


2690 


340A 


8D0134 




STA TVT 


2700 


340D 


60 




RTS 


2710 






. 




2720 






. 




2730 






. 




2740 






. 




2750 






. 




2760 






1 




2770 


340E 


A900 


TVTOFF 


LDA #OFF 


2780 


3410 


8D0134 




STA TVT 


2790 


3413 


60 




RTS 


2800 






. 




2810 






. 




2820 






. 




2830 






. 




2840 






. 




2850 


3414 


A9FF 


PR. ON 


LDA #ON 


2860 


3416 


8D0034 




STA PR1NTR 


2870 


3419 


60 




RTS 


2880 






. 




2890 






. 




2900 






. 




2910 






. 




2920 






j! 




2930 


341A 


A900 


PR. OFF 


LDA #OFF 


2940 


341C 


8D0034 




STA PR I NT R 


2950 


341F 


60 




RTS 


2960 






. 




2970 






. 




2980 






. 




2990 






. 




3000 






5 




3010 


3420 


A9FF 


USR.ON 


LDA #ON 


3020 


3422 


8D0234 




STA USER 


3030 


3425 


60 




RTS 


3040 






$ 




3050 






5 




3060 






5 




3070 






; 




3080 






5 




3090 


3426 


A900 


USROFF 


LDA #OFF 


3100 


3428 


8D0234 




STA USER 


3110 


342B 


60 




RTS 


3120 






9 




3130 






; 




3140 






5 




3150 






; 





SELECT SCREEN FOR OUTPUT 
BY SETTING ITS DEVICE FLAG. 



DE-SELECT SCREEN FOR 
OUTPUT BY CLEARING ITS 
DEVICE FLAG. 



SELECT PRINTER FOR OUTPUT 
BY SETTING ITS DEVICE FLAG. 



DE-SELECT PRINTER FOR OUTPUT 
BY CLEARING ITS DEVICE FLAG. 



SELECT USER-WRITTEN 
SUBROUTINE BY SETTING 
USER'S DEVICE FLAG. 



DE-SELECT USER-WRITTEN 
OUTPUT SUBROUTINE BY 
CLEARING ITS DEVICE FLAG. 
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3160 






3170 


342C 


200834 


3180 


342F 


201434 


3190 


3432 


202034 


3200 


3435 


60 


3210 






3220 






3230 






3240 






3250 






3260 


3436 


200E34 


3270 


3439 


201A34 


3280 


343C 


202634 


3290 


343F 


60 


3300 






3310 






3320 






3330 






3340 






3350 






3360 






3370 






3380 






3390 






3400 






3410 






3420 






3430 






3440 






3450 






3460 






3470 






3480 






3490 






3500 






3510 






3520 






3530 






3540 






3550 


3440 


C900 


3560 


3442 


F024 


3570 






3580 


3444 


8D0334 


3590 






3600 


3447 


AD0134 


3610 


344A 


F006 


3620 






3630 


344C 


AD0334 


3640 


344F 


206934 


3650 






3660 






3670 






3680 


3452 


AD0034 


3690 


3455 


F006 



ALL. ON JSR TVT.ON 

JSR PR. ON 

JSR USR.ON 
RTS 



ALLOFF JSR TVTOFF 
JSR PR. OFF 
JSR USROFF 
RTS 



SELECT ALL OUTPUT DEVICES 
BY SELECTING EACH OUTPUT 
DEVICE INDIVIDUALLY. 



DE-SELECT ALL OUTPUT DEVICES 
BY DE-SELECTING EACH ONE 
INDIVIDUALLY. 



******************************************** 

A GENERAL CHARACTER PRINT ROUTINE 
#****.##************************************* 



PRINT CHARACTER IN ACCUMULATOR ON 

ALL CURRENTLY-SELECTED OUTPUT DEVICES. 



PR.CHR CMP #0 

BEQ EXIT 

STA CHAR 

5 

LDA TVT 
BEQ IF. PR 

LDA CHAR 
JSR SEND. 1 



IF. PR LDA PRINTR 
BEQ IF.USR 



TEST CHARACTER. 
IF IT'S A NULL, RETURN 
WITHOUT PRINTING IT. 
SAVE CHARACTER. 

IS SCREEN SELECTED? 

IF NOT, TEST NEXT DEVICE. 

IF SO, SEND CHARACTER 
INDIRECTLY TO SYSTEM'S 
TVT OUTPUT ROUTINE. 



IS PRINTER SELECTED? 

IF NOT, TEST NEXT DEVICE. 
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3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 



3457 AD0334 
345A 206C34 



345D AD0234 

3460 F006 

3462 AD0334 

3465 206F34 

3468 60 



LDA CHAR 
JSR SEND. 2 



IF.USR LDA USER 

5 

BEQ EXIT 
5 

LDA CHAR 
JSR SEND. 3 

5 

EXIT RTS 



IF SO, SEND CHARACTER 
INDIRECTLY TO SYSTEM'S 
PRINTER DRIVER. 



IS USER-WRITTEN OUTPUT 
SUBROUTINE SELECTED? 
IF NOT, RETURN. 

IF SO, SEND CHARACTER 
INDIRECTLY TO USER-WRITTEN 
SUBROUTINE. 

RETURN TO CALLER. 



VECTORED SUBROUTINE CALLS 



3469 6C0A30 
346C 6C0C30 
346F 6C0E30 



SEND.l JMP (ROMTVT) 

5 
SEND. 2 JMP (ROMPRT) 

5 
SEND. 3 JMP (USROUT) 

5 



SPECIALIZED CHARACTER OUTPUT ROUTINES 



PRINT A CARRIAGE RETURN-LINE FEED 



3472 A90D 

3474 204034 

3477 A90A 

3479 204034 

347C 60 



CR.LF 



LDA #CR 
JSR PR.CHR 
LDA #LF 
JSR PR.CHR 
RTS 



BEND A CARRIAGE RETURN 

AND A LINE-FEED TO ALL 
CURRENTLY-SELECTED DEVICES. 
THEN RETURN. 
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4240 






4250 






4260 






42 70 






4780 






4290 






4300 






4310 


347D 


A920 


4320 


34 7F 


204034 


4330 


3482 


60 


4340 






4350 






4360 






4370 






4380 






4390 






4400 






4410 






4420 






4430 






4440 






4450 






4460 






4470 






4480 






4490 






4500 






4510 






4520 






4530 






4540 






4550 






4560 






4570 






4580 






4590 






4600 


3483 


48 


4610 


3484 


4A 


4620 


3485 


4A 


4630 


3486 


4A 


4640 


3487 


4A 


4650 


3488 


20B631 


4660 


34 8B 


204034 


4670 






4680 


348E 


68 


4690 


348F 


20B631 


4700 


3492 


204034 


4710 


3495 


60 


4720 






4730 






4740 






4750 






4760 






4770 







PRINT A SPACE: 



SPACE LOA #*20 LOAD ACCUMULATOR WITH AN 
JSR PR,CHR ASCII SPACE AND PRINT IT. 
RTS THEN RETURN. 



#*♦*#**#* a********************************** 
PRINT BYTE 



PR. BYT OUTPUTS THE ACCUMULATOR, IN HEX, 
TO ALL CURRENTLY-SELECTED DEVICES. 



PR. BYT PHA 

LSR A 
LSR A 
LSR A 
LSR A 
JSR ASCII 
JSR PR.CHR 

PLA 

JSR ASCII 

JSR PR.CHR 

RTS 



SAVE BYTE. 

DETERMINE ASCII FOR 4 MSB. 



... IN THE BYTE. 
PRINT THAT ASCII CHAR TO 
CURRENT DEVICE(S). 
DETERMINE ASCII FOR 4 LSB 
IN THE ORIGINAL BYTE. 
PRINT THAT CHARACTER. 
RETURN TO CALLER. 
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4780 






4790 






4800 






4810 






4820 






4830 






4840 






4850 






4860 






4870 






4880 






4890 






4900 


3496 


A920 


4910 






4920 






4930 






4940 






4950 






4960 






4970 






4980 






4990 






5000 






5010 


3498 


8E0434 


5020 


349B 


48 


5030 


349C 


AE0434 


5040 


349F 


F00A 


5050 


34A1 


CE0434 


5060 


34A4 


204034 


5070 






5080 


34 A 7 


68 


5090 


34A8 


18 


5100 


34A9 


90F0 


5110 






5120 


34AB 


68 


5130 


34AC 


60 


5140 






5150 






5160 






5170 






5180 






5190 






5200 


34AD 


8E0434 


5210 


34B0 


AE0434 


5220 


34B3 


F009 


5230 


34B5 


CE0434 


5240 


34B8 


207234 


5250 






5260 


34BB 


18 


5270 


34BC 


90F2 


5280 






5290 


34BE 


60 


5300 






5310 







REPETITIVE CHARACTER OUTPUT 
a******************************************* 

PRINT X SPACES: 



SPACES LDA #*20 



LOAD A WITH ASCII SPACE. 
PRINT IT X TIMES: 



PRINT X CHARACTERS: 



CHARS STX REPEAT 

RPLOOP PHA 

LDX REPEAT 
BEQ RPTEND 
DEC REPEAT 
JSR PR.CHR 

PL A 
CLC 
BCC RPLOOP 

RPTEND PLA 
RTS 



PRINT CHAR IN A X TIMES. 
SAVE CHAR TO BE REPEATED. 
REPEAT COUNTER TIMED OUT? 
IF SO, EXIT. IF NOT, 
DECREMENT REPEAT COUNTER. 
PRINT CHARACTER. 

RESTORE CHARACTER TO A. 
LOOP BACK TO PRINT IT 
AGAIN IF NECESSARY. 

CLEAN UP STACK AND 
RETURN TO CALLER. 



PRINT X NEWLINES 



CR.LFS STX REPEAT 

CRLOOP LDX REPEAT 

BEQ END.CR 

DEC REPEAT 

JSR CR-LF 

CLC 

BCC CRLOOP 

END.CR RTS 



INITIALIZE REPEAT COUNTER. 

EXIT IF REPEAT COUNTER 

HAS TIMED OUT. 

DECREMENT REPEAT COUNTER. 

PRINT A CARRIAGE RETURN 

AND A LINE FEED. 

LOOP BACK TO SEE IF DONE 

YET. 

RETURN TO CALLER. 
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5320 






5340 






5350 






5360 






5370 






5380 






5390 






5400 






5410 






5420 






5430 






5440 






5450 






5460 






5470 






5480 






5490 






5500 






5510 






5520 


34BF 


8E0534 


5530 






5540 






5550 


34C2 


B501 


5560 


34C4 


48 


5570 


34C5 


B500 


5580 


34C7 


48 


5590 






5600 


34C8 


AE0534 


5610 






5620 


34CB 


A100 


5630 


34CD 


C9FF 


5640 


34CF 


F00C 


5650 






5660 


34D1 


F600 


5670 


34D3 


D002 


5680 


34 D5 


F601 


5690 


34D7 


204034 


5700 


34DA 


18 


5710 


34DB 


90EB 


5720 






5730 






5740 


34DD 


68 


5750 


34DE 


9500 


5760 


34E0 


68 


5770 


34E1 


9501 


5780 


34E3 


60 


5790 






5800 






5810 






5820 






5830 






5840 






5850 







PRINT A MESSAGE 



Xth POINTER IN ZERO PAGE 
POINTS TO THE MESSAGE. 



PR.MSG STX TEMP.X 





LDA 


1,X 




PHA 






LDA 


0,X 




PHA 




LOOP 


LDX 


TEMP.X 


' 


LDA 


(0,X) 




CMP 


#ETX 




BEQ 


MSGEND 


5 


INC 


0,X 




BNE 


NEXT 




INC 


1,X 


NEXT 


JSR 
CLC 


PR.CHR 


j! 


BCC 


LOOP 


MSGEND 


PLA 






STA 


0,X 




PLA 






STA 


1,X 




RTS 





SAVE X REGISTER, WHICH 
SPECIFIES MESSAGE POINTER. 

SAVE MESSAGE POINTER. 



RESTORE ORIGINAL X, SO IT 
SPECIFIES MESSAGE POINTER. 
GET NEXT CHARACTER FROM 
MESSAGE. IS MESSAGE OVER? 
IF SO, HANDLE END OF MESSAGE. 

IF NOT, INCREMENT POINTER. 
SO IT POINTS TO NEXT 
CHARACTER IN MESSAGE. 
PRINT THE CHARACTER. 
LOOP BACK FOR NEXT 
CHARACTER... 



RESTORE ORIGINAL MESSAGE 
POINTER. 



RETURN TO CALLER, WITH 
MESSAGE POINTER PRESERVED. 



249 



5860 






5870 






5880 






5890 






5900 






5910 






5920 






5930 






5940 






5950 






5960 






5970 






5980 






5990 


34E4 


68 


6000 


34E5 


AA 


6010 


34E6 


68 


6020 


34E7 


A8 


6030 






6040 


34E8 


201235 


6050 


34EB 


8E0532 


6060 


34EE 


8C0632 


6070 






6080 






6090 


34F1 


200D33 


6100 






6110 


34F4 


200D33 


6120 


34F7 


209532 


6130 


34FA 


C9FF 


6140 


34FC 


F006 


6150 


34FE 


204034 


6160 


3501 


18 


6170 


3502 


90F0 


6180 






6190 






6200 


3504 


AE0532 


6210 


3507 


AC0632 


6220 


350A 


202B35 


6230 


350D 


98 


6240 


350E 


48 


6250 


350F 


8A 


6260 


3510 


48 


6270 


3511 


60 


6280 






6290 






6300 






6310 






6320 






6330 






6340 






6350 






6360 






6370 






6380 






6390 







PRINT THE FOLLOWING TEXT 

5 

■S 
I 



PULL RETURN ADDRESS FROM 
STACK AND SAVE IT IN X AND 
Y REGISTERS- 



PRINT: 


PLA 
TAX 
PLA 






TAY 




5 


JSR 


PUSHSL 




STX 


SELECT 


5 


STY 


SELECT+i 


5 


JSR 


INC.SL 


5 

NEXTCH 


JSR 


INC.SL 




JSR 


GET.SL 




CMP 


#ETX 




BEQ 


END IT 




JSR 


PR.CHR 




CLC 




5 


BCC 


NEXTCH 


; 

END IT 


LDX 


SELECT 




LDY 


SELECT+1 




JSR 


POP.SL 




TYA 






PHA 






TXA 






PHA 






RTS 





SAVE THE SELECT POINTER. 
SET SELECT EQUAL TO 
RETURN ADDRESS. 



ADVANCE SELECT TO STX. 

SELECT NEXT CHARACTER. 

GET IT. 

IS IT END OF MESSAGE? 

IF SO, RETURN. 

IF NOT, PRINT CHARACTER. 

LOOP BACK FOR NEXT 

CHARACTER. . . 



RESTORE SELECT POINTER. 
PUSH ADDRESS OF ETX ONTO 

. ..THE STACK. 

RETURN (TO BYTE IMMEDIATELY 
FOLLOWING THE ETX.) 



****#*******#**********************•**#**-*-**# 
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6400 






6410 






6420 






6430 






6440 






6450 






6460 






64 70 






6480 






6490 


3512 


68 


6500 


3513 


8D0634 


6510 


3516 


68 


6520 


3517 


8D0734 


6530 






6540 






6550 


351A 


AD0632 


6560 


351D 


48 


6570 


35 IE 


AD0532 


6580 


3521 


48 


6590 






6600 






6610 


3522 


AD0734 


6620 


3525 


48 


6630 


3526 


AD0634 


6640 


3529 


48 


6650 






6660 






6670 


352A 


60 


6680 






6690 






6700 






6710 






6720 






6730 






6740 






6750 






6760 






6770 


352B 


68 


6780 


352C 


8D0634 


6790 


352F 


68 


6800 


3530 


8D0734 


6810 






6820 






6830 


3533 


68 


6840 


3534 


8D0532 


6850 


3537 


68 


6860 


3538 


8D0632 


6870 






6880 






6890 


353B 


AD0734 


6900 


353E 


48 


6910 


353F 


AD0634 


6920 


3542 


48 


6930 







SAVE, RESTORE SELECT POINTER 
******************************************** 



PUSHSL PLA 

STA RETURN 

PLA 

STA RETURN* 1 



LDA SELECT+1 

PHA 

LDA SELECT 

PHA 



LDA RETURN* 1 

PHA 

LDA RETURN 

PHA 



RTS 



PULL RETURN ADDRESS FROM 
STACK AND SAVE IT IN RETURN. 



PUSH SELECT POINTER ONTO 
THE STACK. 



PUSH RETURN ADDRESS BACK 
ON THE STACK. 



RETURN TO CALLER. CALLER 
WILL FIND SELECT ON STACK. 



POP.SL PLA 

STA RETURN 

PLA 

STA RETURN* 1 



PLA 

STA SELECT 

PLA 

STA SELECT+1 



LDA RETURN+1 

PHA 

LDA RETURN 

PHA 



SAVE RETURN ADDRESS. 



LOAD SELECT FROM STACK 



PLACE RETURN ADDRESS BACK 
ON STACK. 
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6940 
6950 



3543 60 



RTS 



RETURN TO CALLER. 







CROSS REFERENCE 


LISTING: 






ALL. ON 


342C 


ALLOFF 


3436 


ASCII 


31B6 


CHAR 


CHARS 


3498 


CR 


000D 


CR-LF 


3472 


CR-LFS 


CRLOOP 


34B0 


END-CR 


34BE 


END IT 


3504 


ETX 


EXIT 


3468 


GET.SL 


3295 


IF. PR 


3452 


IF.USR 


INC.SL 


330D 


LF 


000A 


LOOP 


34C8 


MSGEND 


NEXT 


34D7 


NEXTCH 


34F4 


OFF 


0000 


ON 


PARAMS 


3000 


POP.SL 


352B 


PR. BYT 


3483 


PR.CHR 


PR.MSG 


34BF 


PR -OFF 


341A 


PR. ON 


3414 


PRINT 


PRINTR 


3400 


PUSHSL 


3512 


REPEAT 


3404 


RETURN 


ROMPRT 


300C 


ROMTVT 


300A 


RPLOOP 


349B 


RPTEND 


SELECT 


3205 


SEND. 1 


3469 


SEND. 2 


346C 


SEND. 3 


SPACE 


347D 


SPACES 


3496 


TEMP.X 


3405 


TVSUBS 


TVT 


3401 


TVT. ON 


3408 


TVTOFF 


340E 


USER 


USR.ON 


3420 


USROFF 


3426 


USROUT 


300E 


VMPAGE 



3403 
34AD 
00FF 
345D 
34DD 
00FF 
3440 
34E4 
3406 
34AB 
346F 
3100 
3402 
3200 



252 



Appendix C5: 

Two Hexdump Tools 
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1000 
1010 

1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 



APPENDIX C5: ASSEMBLER LISTING OF 
TWO HEXDUMP TOOLS 



SEE CHAPTER 8 OF TOP-DOWN ASSEMBLY LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 



KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



CONSTANTS 
ft******************************************* 



CARRIAGE RETURN. 
LINE FEED. 



THIS CHARACTER MUST START 
ANY MESSAGE. 

ETX = *FF THIS CHARACTER MUST END 
ANY MESSAGE. 



CR 


= *0D 


LF 


= *0A 


TEX 


= $7F 
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1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 



; EXTERNAL ADDRESSES 



TVSUBS = *3100 







STARTING 


PAGE 


OF 


DISPLAY 






CODE. 








CLR.7V 


= 


TVSUBS 








ASCII 


— 


TVSUBS+SB6 








VMPAGE 


_ 


$3200 









STARTING PAGE OF VISIBLE 
MONITOR CODE. 



SELECT 
VISMON 
GET.SL 
INC.SL 



VMPAGE+5 
VMPAGE+7 
VMPAGE+*95 
VMPAGE+$10D 



PRPAGE = $3400 



STARTING PAGE OF PRINT 
UTILITIES. 



TVT.ON 

TVTOFF 

PR. ON 

PR. OFF 

PR.CHR 

CR.LF 

CR.LFS 

SPACE 

SPACES 

PR. BYT 

PRINT: 

PUSHSL 

POP.SL 



PRPAGE+8 

PRPAGE+*0E 

PRPAGE+$14 

PRPAGE+$1A 

PRPAGE+*40 

PRPAGE+*72 

PRPAGE+*AD 

PRPAGE+*7D 

PRPAGE+*96 

PRPAGE+*83 

PRPAGE+*E4 

PRPAGE+*112 

PRPAGE+*12B 
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2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 



0000 = 3550 



3550 00 



♦♦♦♦if*************************************** 

VARIABLES 
a******************************************* 

* = $3550 



3551 07 



3552 0000 



3554 FFFF 



5556 00 



COUNTR .BYTE 



MASK .BYTE 7 



SA 



EA 



.WORD 



-WORD $FFFF 



COLUMN -BYTE 



THIS BYTE COUNTS THE LINES 
DUMPED BY TVDUMP. 

FOR OUTPUT A (SUITABLE FOR 
C-64. ) USE M DB 3" FOR 
OUTPUT B (SUITABLE FOR VIC 
VIC-20. ) 

POINTER TO START OF MEMORY 
TO BE DUMPED BY PRDUMP. 

POINTER TO LAST BYTE TO 
BE DUMPED BY PRDUMP. 



DATA CELL: USED BY PRLINE 



; TVDUMP 

5 
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2620 






2630 






2640 






2650 






2660 


3557 


200834 


2670 


355A 


A904 


2680 


355C 


8D5035 


2690 






2700 


355F 


AD0532 


2710 


3562 


29F0 


2720 


3564 


8D0532 


2730 






2740 






2750 


3567 


209B35 


2760 


356A 


207D34 


2770 






2780 






2790 


356D 


207D34 


2800 


3570 


209435 


2810 


3573 


200D33 


2820 






2830 


3576 


AD0532 


2840 


3579 


2D5135 


2850 






2860 






2870 






2880 


357C 


D0EF 


2890 


357E 


207234 


2900 






2910 






2920 


3581 


AD0532 


2930 


3584 


290F 


2940 






2950 






2960 


3586 


D003 


2970 


3588 


207234 


2980 






2990 






3000 


358B 


CE5035 


3010 


358E 


D0D7 


3020 






3030 






3040 


3590 


200E34 


3050 

~?Gt>Uf7l 






3070 


3593 


60 


3080 






3090 






3100 






3110 






3120 






3130 






3140 






3150 







TVDUMP JSR TVT.ON 
LDA #4 
STA COUNTR 
? 

LDA SELECT 
AND #$F0 
STA SELECT 



DUMPLN JSR PR. ADR 
JSR SPACE 



DMPBYT JSR SPACE 
JSR DUMPSL 
JSR INC.SL 

5 

LDA SELECT 
AND MASK 



BNE DMPBYT 
JSR CR-LF 



LDA SELECT 
AND #$0F 



BNE IFDONE 
JSR CR.LF 



IFDONE DEC COUNTR 
BNE DUMPLN 



JSR TVTOFF 



RTS 



SELECT TVT AS OUTPUT DEVICE. 
SET COUNTR TO NUMBER OF 
LINES TO BE DUMPED. 

SET SELECT TO BEGINNING OF 
A HEX LINE (16 BYTES) BY 
ZEROING 4 LSB IN SELECT. 



PRINT THE SELECTED ADDRESS. 
PRIN7 A SPACE ON THE SCREEN. 



PRINT A SPACE ON THE SCREEN. 
DUMP SELECTED BYTE. 
SELECT NEXT BYTE. 

IS IT THE BEGINNING OF A 
NEW SCREEN LINE? (ARE 3 LSB, 
0, FOR OUTPUT A, OR 2 LSB 0, 
FOR OUTPUT B?) 

IF NOT, DUMP NEXT BYTE... 

IF SO, ADVANCE TO A NEW LINE 

ON SCREEN. 

DOES THIS ADDRESS MARK THE 
BEGINNING OF A NEW HEX LINE? 
(ARE 4 LSB 0?) 



IF SO, ADVANCE TO A NEW 
LINE ON SCREEN. 

DUMPED LAST LINE YET? 
IF NOT, DUMP NEXT LINE. 



DE-SELECT TVT AS OUTPUT 
DEVICE. 

RETURN TO CALLER. 
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3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 



5 DUMP SELECTED BYTE 

9 

5 
5 



3594 
3597 
359A 



209532 
208334 
60 



DUMPSL JSR GET.SL 
JSR PR. BYT 
RTS 



GET CURRENTLY-SELECTED BYTE 
AND PRINT IT IN HEX FORMAT. 
RETURN TO CALLER. 



it******************************************* 
PRINT SELECTED ADDRESS 



359B 
359E 
35 A 1 
35A4 
35A7 



AD0632 
208334 
AD0532 
208334 
60 



PR. ADR LDA SELECT+1 
JSR PR. BYT 
LDA SELECT 
JSR PR. BYT 
RTS 



FIRST PRINT THE HIGH BYTE.. 
...THEN PRINT THE LOW BYTE. 



PRINTING HEXDUMP 
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3700 






3710 






3720 






3730 






3740 






3750 






3760 


35A8 


20C335 


3770 


35AB 


20E335 


3780 






3790 






3800 






3810 


35AE 


209A37 


3820 


35B1 


201434 


3830 






3840 


35B4 


20E.536 


3850 






3860 






3870 


35B7 


203C37 


3880 


35BA 


10FB 


3890 






3900 






3910 


35BC 


207234 


3920 






3930 


35BF 


201A34 


3940 






3950 


35C2 


60 


3960 






3970 






3980 






3990 






4000 






4010 






4020 






4030 






4040 






4050 






4060 






4070 






4080 






4090 






4100 






4110 






4120 






4130 






4140 






4150 


35C3 


200834 


4160 


35C6 


201A34 


4170 


35C9 


20E434 


4180 


35CC 


7F 


4190 






4200 


35CD 


0D5052494E 


4210 




54494E4720 


4220 




4845584455 


4230 




4D500D0A0A 



***#*#*******4Hfr*#***Ht*#****#*^************** 



PRDUMP JSR TITLE 
JSR SET ADS 



JSR GOTOSA 
JSR PR- ON 

JSR HEADER 



HXLOOP JSR PRLINE 
BPL HXLOOP 



JSR CR-LF 
JSR PR- OFF 
RTS 



DISPLAY THE TITLE 
LET USER SET START ADDRESS 
AND END ADDRESS OF MEMORY TO 
BE DUMPED- (SET ADS RETURNS 
WITH SELECT EQUAL TO EA. > 
SET SELECT EQUAL TO SA. 
SELECT PRINTER FOR OUTPUT - 

OUTPUT HEXDUMP HEADER- 



DUMP ONE LINE. 

DUMPED LAST LINE? IF NOT, 

DUMP NEXT LINE. 

IF SO, GO TO A NEW LINE. 

DE-SELECT PRINTER FOR OUTPUT. 

RETURN TO CALLER. 



PRINT THE HEXDUMP TITLE ON SCREEN 



TITLE JSR TVT.ON SELECT SCREEN FOR OUTPUT. 
JSR PR. OFF DE-SELECT PRINTER. 
JSR PRINTS OUTPUT THE FOLLOWING TEXTs 
.BYTE TEX TEXT STRING MUST START 
; WITH A START OF TEXT CHAR. 

-BYTE CR, PRINTING HEXDUMP * f CR,LF,LF ; 
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4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 



35E1 FF 
35E2 60 



.BYTE ETX 



RfS 



TEXT STRING MUST END WITH 
AN END OF TEXT CHARACTER. 
RETURN TO CALLER. 



********************************************* 

LET USER SET STARTING ADDRESS AND 
END ADDRESS OF A BLOCK OF MEMORY: 



35E3 
35E6 
35E9 
35EA 



3601 



360F 
3610 



200834 

20E434 

7F 

0D0A534554 

2053544152 

54494E4 720 

4144445245 

535320 

414E442050 

5245535320 

2251222E 

FF 

200732 



SETADS JSR TVT.ON 
JSR PRINT: 
.BYTE TEX 
.BYTE CR,LF, 



SELECT SCREEN FOR OUTPUT 
PUT PROMPT ON SCREEN: 

SET STARTING ADDRESS ' ; 



.BYTE 'AND PRESS "Q". 



3613 206136 



.BYTE ETX 
JSR VISMON 



JSR SAHERE 



CALL VISIBLE MONITOR, 
USER CAN SELECT START 
OF THE BLOCK. 

SET SA EQUAL TO SELECT 



SO 
ADDRESS 



HAVING SET THE START ADDRESS, 
SA, LET'S SET THE END ADDRESS, 
EA. 
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4780 






4790 


3616 


200834 


4800 


3619 


20E434 


4810 


36 1C 


7F 


4820 


361D 


0D0A534554 


4830 




20454E4420 


4840 




4144445245 


4850 




535320 


4860 


362F 


414E442050 


4870 




5245535320 


4880 




2251222EFF 


4890 






4900 


363E 


200732 


4910 






4920 


3641 


38 


4930 


3642 


AD0632 


4940 


3645 


CD5335 


4950 


3648 


9024 


4960 


364A 


D008 


4970 






4980 






4990 






5000 






5010 


364C 


AD0532 


5020 


364F 


CD5235 


5030 


3652 


901A 


5040 






5050 






5060 






5070 






5080 


3654 


AD0632 


5090 


3657 


8D5535 


5100 


365A 


AD0532 


5110 


365D 


8D5435 


5120 


3660 


60 


5130 






5140 






5150 






5160 






5170 


3661 


AD0632 


5180 


3664 


8D5335 


5190 


3667 


AD0532 


5200 


366A 


8D5235 


5210 


366D 


60 


5220 






5230 


366E 


20E434 


5240 






5250 






5260 


3671 


7F 


5270 


3672 


0D0A0A0A20 


5280 




4552524F52 


5290 




21212120 


5300 


3680 


454E442041 


5310 




4444524553 



SET 



EA JSR TVT.ON 
JSR PRINT: 
-BYTE TEX 
-BYTE CR,LF,SET END ADDRESS 



SELECT SCREEN FOR OUTPUT. 
PUT PROMPT ON SCREEN: 



.BYTE 'AND PRESS M Q n .',ETX 



JSR VISMON 

SEC 

LDA SELECT+1 
CMP SA+1 
BCC TOOLOW 
BNE EAHERE 



LDA SELECT 
CMP SA 
BCC TOOLOW 



EAHERE LDA SELECT+1 
ST A EA+1 
LDA SELECT 
STA EA 
RTS 



SAHERE LDA SELECT+1 
STA SA+1 
LDA SELECT 
STA SA 
RTS 
5 

TOOLOW JSR PRINT: 



-BYTE TEX 



LET USER SELECT END ADDRESS. 

IF USER TRIED TO SET AN 

ADDRESS LESS THAN THE 

STARTING ADDRESS, 

MAKE USER DO IT OVER. 

IF SELECT >SA, SET EA EQUAL TO 

SELECT. THAT WILL MAKE EA>SA. 



SET EA EQUAL TO SELECT. 



RETURN WITH EA SET BY CALLER 
(JSR EAHERE) ; EA SET BY USER 
(JSR SET.EA); OR SA AND EA 

SET BY USER (JSR SETADS) . 

SET SA EQUAL TO SELECT. 



RETURN. 

SINCE USER SET ENDING 
ADDRESS TOO LOW, PUT A 
PROMPT ON THE SCREEN: 



-BYTE CR,LF,LF,LF, ' ERROR 



.BYTE 'END ADDRESS LESS THAN START ADDRESS,'; 
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5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 



53204C4553 
5320544841 
4E20535441 
5254204144 
4452455353 
2C 

36A4 2057484943 
4820495320 
FF 

36AF 20B536 

36B2 4C1636 



.BYTE ' WHICH IS ' ,ETX 



JSR PR.SA PRINT START ADDRESS. 

JMP SET.EA AND LET THE USER SET A 
NEW END ADDRESS. 



5 ******************************************** 

; 

; PRINT START ADDRESS 

I ******************************************** 



36B5 A924 

36B7 204034 

36BA AD5335 

36BD 208334 

36C0 AD5235 

36C3 208334 

36C6 60 



PR.SA LDA #'*' 

JSR PR.CHR 

LDA SA+1 

JSR PR. BYT 

LDA SA 

JSR PR. BYT 
RTS 



PRINT A DOLLAR SIGN, TO 
INDICATE HEXADECIMAL. 

PRINT HIBH BYTE OF START 
ADDRESS. 

PRINT LOW BYTE OF START 

RETURN TO CALLER. 



******************************************** 

PRINT END ADDRESS 
******************************************** 
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5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 

6380 

6390 



36C7 A924 

36C9 204034 

36CC AD5535 

36CF 208334 

36D2 AD5435 

36D5 208334 

36D8 60 



PR.EA LDA #'*' PRINT A DOLLAR SIGN, TO 

JSR PR.CHR INDICATE HEXADECIMAL. 

LDA EA+1 PRINT HIGH BYTE OF END 

JSR PR. BYT ADDRESS. 

LDA EA PRINT LOW BYTE OF END 

JSR PR. BYT ADDRESS. 

RTS RETURN TO CALLER. 



PRINT RANGE OF ADDRESSES 



36D9 20B536 

36DC A92D 

36DE 204034 

36E1 20C736 

36E4 60 



RANGE 



JSR PR.SA 
LDA #'-' 
JSR PR.CHR 
JSR PR.EA 
RTS 



PRINT STARTING ADDRESS. 
PRINT A HYPHEN. 

PRINT END ADDRESS. 
RETURN TO CALLER. 



; PRINT HEADER 
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6400 

6410 

6420 

6430 

6440 

6450 

6460 

6470 

6480 

6490 

6500 

6510 

6520 

6530 

6540 

6550 

6560 

6570 

r-580 

6590 

6600 

6610 

6620 

6630 

6640 

6650 

6660 

6670 

6680 

6690 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

6810 

6820 

6830 

6340 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 



36E5 
36E8 
36E9 



36F4 
36F5 
36F8 
36FB 
36FE 
3701 



3721 



3737 
373B 



20E434 

7F 

0D0A0A4455 

4D50494E47 

20 

FF 

20D936 

207234 

20E434 

7F0A0A 

2020202020 

2020203020 

2031202032 

2020332020 

3420203520 

2036202037 

2020 

3820203920 

2041202042 

2020432020 

4420204520 

2046 

0D0A0AFF 

60 



HEADER JSR PRINT: 
.BYTE TEX 
.BYTE CR,LF,LF, 'DUMPING 



.BYTE ETX 

JSR RANGE 

JSR CR.LF 

JSR PRINT: 

.BYTE TEX,LF,LF 

.BYTE * 12 



.BYTE '8 



-BYTE CR,LF,LF,ETX 
RTS 



******************************************** 

DUMP ONE LINE TO PRINTER 
******************************************** 



373C 207234 

373F AD0532 

3742 48 

3743 290F 
3745 8D5635 



3748 68 

3749 29F0 



PRLINE JSR CR.LF 
LDA SELECT 
PHA 

AND #*0F 
STA COLUMN 



PLA 

AND #$F0 



DETERMINE STARTING COLUMN. 
FOR THIS DUMP. 

NOW COLUMN HOLDS NUMBER OF 
HEX COLUMN IN WHICH WE DUMP 
THE FIRST BYTE. 
SET SELECT TO BEGINNING OF 
A HEX LINE. 
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6940 


374B 


8D0532 


6950 


374E 


209B35 


6960 


3751 


A203 


6970 


3753 


209634 


6980 






6990 






7000 


3756 


AD5635 


7010 






7020 


3759 


F00D 


7030 






7040 






7050 


375B 


A203 


7060 


375D 


209634 


7070 


3760 


200D33 


7080 


3763 


CE5635 


7090 


3766 


D0F3 


7100 






7110 


3768 


209435 


7120 


376B 


207D34 


7130 


376E 


207D37 


7140 






7150 


3771 


3009 


7160 






7170 






7180 






7190 


37 73 


AD0532 


7200 


3776 


290F 


7210 


3778 


C900 


7220 






7230 


377A 


D0EC 


7240 


377C 


60 


7250 






7260 






7270 






7280 






7290 






7300 






7310 






7320 






7330 






7340 






7350 






7360 






7370 






7380 






7390 






7400 






7410 






7420 






7430 






7440 






7450 






7460 


377D 


38 


7470 


377E 


AD0632 



STA SELECT 
JSR PR. ADR 
LDX #3 
JSR SPACES 



LDA 



BEQ 



LOOP LDX 
JSR 
JSR 
DEC 
BNE 
5 

COL. OK JSR 
JSR 
JSR 



COLUMN 
COL. OK 



#3 

SPACES 

1NC.SL 

COLUMN 

LOOP 

DUMPSL 

SPACE 

NEXTSL 



BMI EXIT 



NOT.EA LDA 
AND 
CMP 



EXIT 



BNE 
RTS 



SELECT 

#$0F 

#0 

COL. OK 



PRINT LINE'S START ADDRESS. 
SPACE 3 I IMES--TO THE 
FIRST HEX COLUMN. 



DO WE DUMP FROM THE FIRST 
HEX COLUMN? 

IF SO, WERE AT THE CORRECT 
COLUMN NOW. 

IF NOT, SPACE 3 TIMES FOR 
EACH BYTE NOT DUMPED. 



DUMP SELECTED BYTE. 
SPACE ONCE. 
SELECT NEXT BYTE 

MINUS MEANS WE'VE DUMPED 
THROUGH TO THE END ADDRESS. 



DUMPED ENTIRE LINE? 

(ARE 4 LSB OF SELECT 0?) 

IF SO, WE'VE DUMPED THE 

ENTIRE LINE. IF NOT, 

SELECT NEXT BYTE AND DUMP IT. 

RETURN MINUS IF EA DUMPED. . . 

OR PLUS IF EA NOT DUMPED. 



******************************************** 

SELECT NEXT BYTE (IF < END ADDRESS) 
******************************************** 



NEXTSL SEC 

LDA SELECT* 1 HIGH BYTE OF SELECT LESS 



266 



7480 


3781 


CD5535 


7490 


3784 


900B 


7500 


3786 


D00F 


7510 






7520 






7530 


3788 


38 


7540 


3789 


AD0532 


7550 


378C 


CD5435 


7560 


378F 


B006 


7570 






7580 


3791 


200D33 


7590 






7600 






7610 


3794 


A900 


7620 


3796 


60 


7630 






7640 


3797 


A9FF 


7650 


3799 


60 


7660 






7670 






7680 






7690 






7700 






7710 






7720 






7730 






7740 






7750 






7760 






7770 






7780 






7790 






7800 






7810 






7820 


379A 


AD5235 


7830 


379D 


8D0532 


7840 


37A0 


AD5335 


7850 


37 A3 


8D0632 


7860 


37A6 


60 



CMP EA+1 
BCC SL.OK 
BNE NO. INC 



SEC 

LDA SELECT 
CMP EA 
BCS NO- INC 

SL.OK JSR INC.SL 



LDA #0 
RTS 

NO. INC LDA #*FF 
RTS 



THAN HIBH BYTE OF EA? 
IF SO, SELECT<END ADDRESS. 
IF SELECT >EA, DON'T 
INCREMENT SELECT. 

SELECT IS IN SAME PAGE AS EA. 



SINCE SELECT NOT GREATER THAN 
EA, WE MAY INCREMENT SELECT. 

SET "INCREMENTED" RETURN 
CODE AND RETURN. 



SET "NO INCREMENT" 
CODE AND RETURN. 



RETURN 



SELECT START ADDRESS 



GOTOSA LDA SA 

STA SELECT 
LDA SA+1 
STA SELECT* 1 
RTS 



SET SELECT EQUAL TO SA. 



AND RETURN. 
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CROSS REFERENCE 


LISTING: 








ASCII 


31B6 


CLR.TV 


3100 


COL. OK 


3768 


COLUMN 


3556 


COUNTR 


3550 


CR 


000D 


CR-LF 


3472 


CR.LFS 


34AD 


DMPBYT 


356 D 


DUMPLN 


3567 


DUMPSL 


3594 


EA 


3554 


EAHERE 


3654 


ETX 


00FF 


EXIT 


377C 


GET.SL 


3295 


GO 1 GSA 


3 79 A 


HEADER 


36E5 


HXLOOP 


35B7 


IF DONE 


358B 


INC. SI. 


330D 


LF 


000A 


LOOP 


375B 


MASK 


3551 


NEXTSL 


377D 


NO. INC 


3797 


NGT.EA 


3773 


POP.SL 


352B 


PR . ADR 


359B 


PR. BYT 


3483 


PR.CHR 


3440 


PR.EA 


36C7 


PR -OFF 


341 A 


PR. ON 


3414 


PR.SA 


36B5 


PRDUMP 


35A8 


PRINT 


34E4 


PRLINE 


373C 


PRPAGE 


3400 


PUSHSL 


3512 


RANGE 


36D9 


SA 


3552 


SAHERE 


3661 


SELECT 


3205 


SET.EA 


3616 


SETADS 


35E3 


SL.OK 


3791 


SPACE 


347D 


SPACES 


3496 


TEX 


007F 


TITLE 


35C3 


TOOLOW 


366E 


TVDUMP 


3557 


TVSUBS 


3100 


TVT.ON 


3408 


TVTOFF 


340E 


VISMON 


3207 


VMPAGE 


3200 
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Appendix C6: 

Table-Driven Disassembler (Top 
Level and Utility Subroutines) 
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1000 
1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 



APPENDIX C6s ASSEMBLER LISTING OF 

TABLE-DRIVEN DISASSEMBLER 

TOP-LEVEL AND UTILITY SUBROUTINES 



SEE CHAPTER 9 OF TOP-DOWN ASSEMBLY LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 



BY KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



******************************************** 

CONSTANTS 
******************************************** 



CR = *0D CARRIAGE RETURN. 
LF = $0A LINE FEED. 



TEX = *7F THIS CHARACTER MUST START 
ANY MESSAGE. 

ETX = *FF THIS CHARACTER MUST END 
ANY MESSAGE. 
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1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 



EXTERNAL ADDRESSES 



PARAMS 



$3000 



SYSTEM PARAMETERS 
TVCOLS = PARAMS+3 



VMPAGE 



*3200 



STARTING PAGE OF VISIBLE 
MONITOR CODE. 





SELECT 


= 


VMPAGE+5 




VISMON 


= 


VMPAGE+7 




GET.SL 


= 


VMPAGE+*95 




INC.SL 


= 


VMPAGE+*10D 


? 


DEC- SL 


= 


VMPAGE+*11A 


5 


PRPAGE 


= 


*3400 


5 






STARTING PAGE OF PRINT 


5 






UTILITIES. 




TVT.ON 


= 


PRPAGE+8 




TVTOFF 


= 


PRPAGE+*0E 




PR. ON 


= 


PRPAGE+*14 




PR. OFF 


= 


PRPAGE+$1A 




PR.CHR 


= 


PRPAGE+$40 




CR-LF 


= 


PRPAGE+*72 




SPACE 


= 


PRPAGE+*7D 




SPACES 


= 


PRPAGE+*96 




PR. BYT 


= 


PRPAGE+*83 




PRINT: 


= 


PRPAGE+*E4 




PUSHSL 


= 


PRPAGE+$112 


; 


POP.SL 


= 


PRPAGE+$12B 


5 


HEX.PG 


= 


$3500 

ADDRESS OF PAGE IN WHIt 
HEXDUMP CODE STARTS. 




SA 


= 


HEX.PG+*52 
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2080 

2090 

2100 

21 10 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2250 

2240 

2250 

2260 
2270 
ED FROM 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
23 70 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 



EA 

DUMPSL 

PR. ADR 

RANGE 

SETADS 

NEXTSL. 

I30TOSA 



SA+2 

HEX.PG+*94 

HEX.PG+$9B 

HEX.PG+*1D9 

HEX.PG-MME3 

HEX.PG+*27D 

HEX.PG+*29A 



l + *21B U 9/29/83 



0000 = 3900 



3900 05 



3901 00 



3902 00 



3903 00 



3904 0000 



DISASSEMBLER TABLES: 

DSPAGE = $3900 

STARTING PAGE OF DISASSEMBLER 

SUBS = D5PAGE+*226 ; < CHANG 

MNAMES = DSPAGE+*250 
MCODES = DSPAGE+*300 
MODES = DSPAGE+S400 

******************************************** 
VARIABLES 

******************************************** 

* = DSPAGE 



SLNS -BYTE 5 

NUM -BYTE 
LETTER .BYTE 

TEMP.X -BYTE 
SUBPTR .WORD 



NUMBER OF LINES TO BE 
DISASSEMBLED BY TV.DIS. 

DATA CELL: USED BY TV.DIS. 

COUNTS LETTERS PRINTED IN 

A MNEMONIC. USED BY MNEMON. 

DATA CELL USED BY MNEMON. 

POINTER TO A SUBROUTINE. 
SET, USED BY MODE. X 
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2610 






2620 


3906 


00 


2630 






2640 


3907 


00 


2650 






2660 


3908 


0B 


2670 






2680 






2690 






2700 






2710 






2720 






2730 






2740 






2750 






2760 






2770 






2780 






2790 






2800 






2810 






2820 






2830 






2840 






2850 






2860 


3909 


200834 


2870 


390C 


AD0039 


2880 


390F 


8D0139 


2890 






2900 


3912 


A9FF 


2910 


3914 


8D5435 


2920 


3917 


8D5535 


2930 


391A 


207234 


2940 






2950 


391D 


207D39 


2960 


3920 


CE0139 


2970 


3923 


D0F8 


2980 


3925 


60 


2990 






3000 






3010 






3020 






3030 






3040 






3050 






3060 






3070 






3080 






3090 






3100 






3110 






3120 






3130 






3140 







OPBYTS .BYTE 

OPCHRS -BYTE 

5 

ADRCOL .BYTE 11 



DATA CELL: USED BY FINISH. 

DATA CELL: USED BY FINISH. 

STARTING COLUMN FOR ADDRESS 
FIELD. 



T V-D I SASSEMBLER 
******************************************** 



TV.DIS JSR TVT.ON 
LDA DISLNS 
ST A L1NUM 
5 

LDA #*FF 
STA EA 
ST A EA+1 
JSR CR-LF 
5 

TVLOQP JSR DSLINE 
DEC LINUM 
BNE TVLOOP 
RTS 



SELECT SCREEN FOR OUTPUT. 
INITIALIZE LINE COUNTER WITH 
# OF LINES TO DISASSEMBLE. 

SET END ADDRESS TO *FFFF, 
SO NEXTSL WILL ALWAYS 
INCREMENT SELECT POINTER. 
ADVANCE TO A NEW LINE. 

DISASSEMBLE ONE LINE. 
DONE LAST LINE YET? 
IF NOT, DO NEXT ONE. 
IF SO, RETURN. 



; ******************************************** 

PRINTING DISASSEMBLER 
******************************************** 
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3150 






3160 






3170 






3180 






3190 


3926 


201A34 


3200 


3929 


200834 


3210 


392C 


20E434 


3220 


392F 


7F0D0A 


3230 


3932 


2020202020 


3240 




5052494E54 


3250 




494E472044 


3260 




4953415353 


3270 




454D424C45 


3280 




522E 


3290 


394D 


0D0AFF 


3300 






3310 


3950 


20E335 


3320 






3330 






3340 


3953 


201434 


3350 


3956 


20E434 


3360 


3959 


7F0D0A 


3370 


395C 


4449534153 


3380 




53454D424C 


3390 




494E4720 


3400 


396A 


FF 


3410 


396B 


20D936 


3420 






3430 


396E 


209A37 


3440 






3450 






3460 


3971 


207234 


3470 


3974 


207D39 


3480 


3977 


10FB 


3490 






3500 






3510 






3520 


3979 


201A34 


3530 






3540 


397C 


60 


3550 






3560 






3570 






3580 






3590 






3600 






3610 






3620 






3630 






3640 






3650 






3660 






3670 






3680 







PR.DIS JSR PR. OFF DE-SELECT PRINTER 

JSR TVT.ON SELECT SCREEN FOR OUTPUT. 

JSR PRINT: DISPLAY TITLE. 

.BYTE TEX,CR,LF 

-BYTE ' PRINTING DISASSEMBLER. ' ; 



.BYTE CR,LF,ETX 
JSR SET ADS 



JSR PR. ON 
JSR PRINTS 
.BYTE TEX,CR,LF 
.BYTE DISASSEMBLING 



LET USER SET START, END 

ADDRESSES OF MEMORY TO BE 

DISASSEMBLED. 

SELECT PRINTER FOR OUTPUT. 



.BYTE ETX 
JSR RANGE 

JSR GOTOSA 



JSR CR-LF 
PRLOOP JSR DSLINE 
BPL PRLOOP 



JSR PR. OFF 
RTS 



PRINT RANGE OF MEMORY TO 
BE DISASSEMBLED. 
MAKE SELECT POINT TO START 
OF BLOCK. 

ADVANCE TO A NEW LINE. 
DISASSEMBLE ONE LINE. 
IF IT WASN'T THE LAST LINE, 
DISASSEMBLE THE NEXT ONE. 



DE-SELECT PRINTER FOR OUTPUT. 
RETURN TO CALLER - 



******************************************** 
DISASSEMBLE ONE LINE. 
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3700 






3710 






3720 






3730 






3740 






3750 


397D 


209532 


3760 


3980 


48 


3770 


3981 


209239 


3780 






3790 


3984 


207D34 


3800 


3987 


68 


3810 


3988 


20AF39 


3820 






3830 


398B 


200 13A 


3840 






3850 






3860 






3870 






3880 


398E 


20/D37 


3890 






3900 


3991 


60 


3910 






3920 






3930 






3940 






3950 






3960 






3970 






3980 






3990 






4000 






4010 






4020 






4030 






4040 






4050 






4060 






4070 






4080 






4090 






4100 






4110 


3992 


A203 


4i20 


3994 


8E0239 


4130 


3997 


AA 


4140 






4150 






4160 


3998 


BD003C 


4170 






4180 






4190 






4200 


399B 


AA 


4210 






4220 


399C 


BD503B 



******************************************** 



DSLINE JSR GET-SL 
PHA 

JSR MNEMON 
5 

JSR SPACE 

PLA 

JSR OPERND 

JSR FINISH 



JSR NEXTSL 
RTS 



GET CURRENTLY-SELECTED BYTE. 

SAVE IT ON STACK. 

PRINT MNEMONIC REPRESENTED 

BY THAT OPCODE. 

SPACE ONCE. 

RESTORE OPCODE. 

PRINT OPERAND REQUIRED BY 

THAT OPCODE. 

FINISH THE LINE BY PRINTING 

FIELDS 3-6. FINISH LEAVES 

SELECT POINTING TO LAST 

BYTE OF INSTRUCTION. 

SELECT NEXT BYTE, IF 
SELECT <EA. 

RETURN W/RETURNCODE FROM 
NEXTSL. SELECT POINTS TO 
NEXT OPCODE, OR SELECT 
EQUALS EA. 



I ******************************************** 
PRINT MNEMONIC 
******************************************** 



MNEMON LDX #3 

STX LETTER 
TAX 

; 

5 

LDA MCODES,X 



TAX 
5 

MNLOOP LDA MNAMES,X 



WE'LL PRINT THREE LETTERS. 

PREPARE TO USE OPCODE AS AN 
INDEX. 

LOOK UP MNEMONIC CODE FOR 
THAT OPCODE. MCODES IS 
TABLE OF MNEMONIC CODES. 

PREPARE TO USE THAT MNEMONIC 

CODE AS AN INDEX. 

GET A MNEMONIC CHARACTER. 
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4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4520 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
44i0 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
45S0 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 



399F 8E0339 



39A2 

39A5 
39A8 
39A9 
39AC 
39AE 



204034 
AE0339 
E8 
CE0239 

D0EE 

60 



SIX TEMP.X 

JSR PR.CHR 

LDX TEMP.X 

INX 

DEC LETTER 

BNE MNLOOP 

RTS 



(MNAMES IS A LIST OF 
MNEMONIC NAMES. ) 

SAVE X -REGISTER, SINCE 

PRINTING MAY CHANGE X- 

PRINT THE MNEMONIC CHARACTER. 

RESTORE X, 

ADJUST INDEX FOR NEXT LETTER. 

PRINTED 3 LETTERS YET? 

IF NOT, PRINT NEXT ONE. 

IF SO, RETURN TO CALLER. 



******************************************** 

PRINT OPERAND 
******************************************** 



39AF AA 
39B0 BD003D 



39B-Z 



AA 



39B4 20B839 
39B/ 60 



OPERND TAX 

LDA MODES, X 

5 

TAX 



JSR MODE.X 
RTS 



LOOK UP ADDRESSING MODE 
CODE FOR THIS OPCODE. 

X NOW INDICATES ADDRESSING 
MODE. 

HANDLE THAT ADDRESSING MODE. 
RETURN TO CALLER. 



******************************************** 
HANDLE ADDRESSING MODE "X" 

; ******************************************** 
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4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 



39B8 BD263B 

39BB 8D0439 

39BE E8 

39BF BD263B 

39C2 8D0539 

39C5 6C0439 



MODE.X 



LDA SUBS,X 
STA SUBPTR 

INX 

LDA SUBS,X 
STA SUBPfR+1 
JMP (SUBPTR) 



GET LOW BYTE OF Xth POINTER 

IN TABLE OF SUBROUTINE 

POINTERS. 

ADJUST INDEX FOR NEXT BYTE. 

GET HIGH BYTE OF POINTER. 

JUMP TO SUBROUTINE SPECIFIED 
BY SUBROUTINE POINTER. 
THAT SUBROUTINE WILL RETURN 
TO THE CALLER OF MODE.X, 
NOT TO MODE.X ITSELF. 



DISASSEMBLER UTILITIES 



PRINT ONE-BYTE OPERAND 



39C8 200D33 

39CB 209435 
39CE 60 



ONEBYT JSR INC.SL 
5 

JSR DUMPSL 
RTS 



ADVANCE TO BYTE FOLLOWING 

OPCODE. 

DUMP THAT BYTE. 

RETURN TO CALLER. 



PRINT TWO-BYTE OPERAND: 
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5310 


39CF 


200D33 


TWOBYT 


JSR INC-SL 


ADVANCE TO FIRST BYTE OF 


5320 






5 




OPERAND. 


5330 


39D2 


209532 




JSR GET.SL 


LOAD THAT BYTE INTO ACC. 


5340 


39D5 


48 




PHA 


SAVE IT. 


5350 


39D6 


200D33 




JSR INC-SL 


ADVANCE TO 2ND BYTE OF 


5360 






5 




OPERAND. 


5370 


39D9 


209435 




JSR DUMPSL 


DUMP IT. 


5380 


39DC 


68 




PLA 


RESTORE FIRST BYTE TO ACC 


5390 


39DD 


208334 




JBR PR- BYT 


DUMP IT. 


5400 


39E0 


60 




RTS 


RETURN TO CALLER. 


5410 














5420 














5430 














5440 














5450 














5460 










PRINT LEFT, 


RIGHT PARENTHESES 


5470 














5480 














5490 






; 








5500 


39E1 


A928 


LPAREN 


LDA #*28 


PRINT LEFT PAREN. 


5510 


39E3 


D002 




BNE SEND IT 




5520 






5 






5530 






; 






5540 


39E5 


A929 


RPAREN 


LDA #$29 


PRINT RIGHT PAREN. 


5550 






5 






5560 


39E7 


204034 


SEND IT 


JSR PR.CHR 




5570 


39EA 


60 




RTS 




5580 














5590 














5600 














5610 














5620 














5630 










PRINT A COMMA AND AN "X" 


5640 














5650 














5660 






• 


i 






5670 


39EB 


A92C 


XINDEX 


LDA # * , * 




5680 


39ED 


204034 




JSR PR.CHR 


PRINT A COMMA. 


5690 


39F-0 


A958 




LDA # ' X ' 




5700 


39F2 


204034 




JSR PR.CHR 


PRINT AN M X U . 


5710 


39F5 


60 




RTS 




5720 














5730 














5740 














5750 














5760 














5770 










PRINT A COMMA AND A "Y" 


5780 














5790 














5800 








* 






5810 


39F6 


A92C 


YINDEX 


LDA # ' , ' 




5820 


39F8 


204034 




JSR PR.CHR 


PRINT COMMA. 


5830 


39FB 


A959 




LDA #'Y* 




5840 


39FD 


204034 






JSR PR.CHR 


PRINT A "Y". 
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5850 


3A00 


60 


5860 






5870 






5880 






5890 






5900 






5910 






5920 






5930 






5940 






5950 






5960 






5970 






5980 






5990 






6000 






6010 






6020 






6030 






6040 






6050 






6060 






6070 






6080 






6090 






6100 






6110 






6120 






6130 


3A01 


8D0739 


6140 


3A04 


8E0639 


6150 






6160 






6170 






6180 


3A07 


CA 


6190 






6200 


3A08 


3006 


6210 


3A0A 


201A33 


6220 


3A0D 


CA 


6230 


3A0E 


10FA 


6240 






6250 






6260 






6270 


3A10 


08 


6280 


3A11 


D8 


6290 






6300 


3A12 


38 


6310 


3A13 


AD0839 


6320 


3A16 


E904 


6330 






6340 


3A18 


ED0739 


6350 






6360 


3A1B 


28 


6370 


3A1C 


AA 


6380 


3A1D 


209634 



RTS 



FINISH THE LINE 



NOTE: 



FINISH STA 
STX 



DEX 



OPCHRS 
OPBYTS 



BMI 


SEL.OK 


LOOP. 1 JSR 


DEC.SL 


DEX 




BPL 


LOOP. 1 



SEL.OK PHP 
CLD 

SEC 
LDA 
SBC 



ADRCOL 
#4 



SBC OPCHRS 



PLP 
TAX 
JSR 



SPACES 



EVERY ADDRESSING MODE 
SUBROUTINE MUST END BY 
SETTING X EQUAL TO THE 
NUMBER OF BYTES IN THE 
OPERAND, AND ACC EQUAL 
TO THE NUMBER OF 
CHARACTERS IN OPERAND. 



SAVE THE LENGTH OF THE 
OPERAND, IN CHARACTERS AND 
IN BYTES. MEANS NO 
OPERAND. 

IF NECESSARY, DECREMENT THE 
SELECT POINTER SO IT POINTS 
TO THE OPCODE. 



NOW SELECT POINTS TO OPCODE. 

SAVE CALLER'S DECIMAL FLAG. 
PREPARE FOR BINARY ADDITION. 

SPACE OVER TO THE COLUMN 

FOR THE ADDRESS FIELD: 

OPERAND FIELD STARTED IN 

COLUMN 4.. . 

AND INCLUDES OPCHRS 

CHARACTERS. 

RESTORE CALLER'S DECIMAL FLAG 

PRINT ENOUGH SPACES TO 
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6390 






j 






6410 


3A20 


20983^ 


> 


JSR 


PR. ADR 


6420 


3A23 


207D34 




JSR 


SPACE 


6430 






5 






6440 


3A26 


209435 


LOOP. 2 


JSR 


DUMPSL 


6450 












6460 


3A29 


AD0330 




LDA 


TVCOLS 


6470 


3A2C 


38 




SEC 




6480 


3A2D 


C918 




CMP 


#24 


6490 


3A2F 


9003 




BCC 


DUMPED 


6500 






; 






6510 






<i 






6520 












6530 


3A31 


207D34 




JSR 


SPACE 


6540 






5 






6550 


3A34 




DUMPED 






6560 


3A34 


200D33 




JSR 


INC.SL 


6570 


3A37 


CE0639 




DEC 


OPBYTS 


6580 






; 






6590 


3A3A 


10EA 




BPL 


LOOP. 2 


6600 


3A3C 


201A33 




JSR 


DEC.SL 


6610 






5 






6620 






; 






6630 






5 






6640 






; 






6650 






; 






6660 


3A3F 


207234 


FINEND 


JSR 


CR.LF 


6670 






5 






6680 


3A42 


60 




KTS 





REACH ADDRESS COLUMN. 

PRINT ADDRESS OF OPCODE. 
SPACE AFTER OPCODE'S ADDRESS. 

DUMP SELECTED BYTE. 

IS SCREEN < 24 COLUMNS WIDE? 

IF SO, DON'T SPACE AGAIN. 

SCREEN IS > 24 COLUMNS WIDE. 

SO SPACE AFTER DUMPING BYTE. 

WE'VE DUMPED SELECTED BYTE. 

SELECT NEXT BYTE. 

DUMPED LAST BYTE IN 

INSTRUCTION? 

IF NOT, DUMP NEXT BYTE. 

BACK UP SELECT, SO IT POINTS 

TO LAST BYTE IN OPERAND. 

IF SO, GO TO A NEW LINE: 

HAVING DISASSEMBLED ONE LINE, 
GO TO A NEW LINE. 
RETURN TO CALLER. 
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CROSS REFERENCE LISTING: 



ADRCOL 


3908 


DISLNS 


3900 


DUMPSL 


3594 


FINISH 


3A01 


INC.SL 


330D 


LOOP. 1 


3A0A 


MNAMES 


3B50 


MODES 


3D00 


OPCHRS 


3907 


PR -ADR 


359B 


PR. OFF 


341A 


PRPAGE 


3400 


SA 


3552 


SETADS 


35E3 


SUBS 


3B26 


TVCOLS 


3003 


TWOBYT 


39CF 


Y INDEX 


39F6 



CR 


000D 


DSLINE 


397D 


EA 


3554 


GET.SL 


3295 


LETTER 


3902 


LOOP. 2 


3A26 


MNEMON 


3992 


NEXTSL 


377D 


OPERND 


39AF 


PR. BYT 


3483 


PR. ON 


3414 


PUSHSL 


3512 


SEL.OK 


3A10 


SPACE 


347D 


TEMP.X 


3903 


TVLOOP 


391D 


VISMON 


3207 



riNG: 








CR-LF 


3472 


DEC.SL 


331A 


DSPAGE 


3900 


DUMPED 


3A34 


ETX 


00FF 


FINEND 


3A3F 


GOTOSA 


379A 


HEX.PG 


3500 


LF 


000A 


LINUM 


3901 


LPAREN 


39E1 


MCODES 


3C00 


MNLOOP 


399C 


MODE.X 


39B8 


ONEBYT 


39C8 


OPBYTS 


3906 


PARAMS 


3000 


POP.SL 


352B 


PR.CHR 


3440 


PR.DIS 


3926 


PRINT 


34E4 


PRLOOP 


3974 


RANGE 


36D9 


RPAREN 


39E5 


SELECT 


3205 


SEND IT 


39E7 


SPACES 


3496 


SUBPTR 


3904 


TEX 


007F 


TV.DIS 


3909 


TVT.ON 


3408 


TVTOFF 


340E 


VMPAGE 


3200 


X INDEX 


39EB 
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Appendix C7; 

Table-Driven Disassembler 
(Addressing Mode Subroutines) 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1 110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 



APPENDIX C7: ASSEMBLER LISTING OF 

TABLE -DRIVEN DISASSEMBLER: 

ADDRESSING MODE SUBROUTINES 



SEE CHAPTER 9 OF" TOP-DOWN ASSEMBLY LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 



BY KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



3 

; CONSTANTS 



CR = $0D CARRIAGE RETURN. 
LF = *0A LINE FEED. 



TEX 



= *7F THIS CHARACTER MUST START 
ANY MESSAGE. 



285 



1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 



ETX 



$FF 



THIS CHARACTER MUST END 
ANY MESSAGE. 



EXTERNAL ADDRESSES 



VMPAGE 



SELECT 
VISMON 
GET.SL 
INC.SL 
DEC.SL 



PRPAGE 



PR.CHR 

CR.LF 

SPACE 

SPACES 

PR- BYT 

PUSHSL 

POP.SL 



*3200 



STARTING PAGE OF VISIBLE 
MONITOR CODE. 



VMPAGE+5 

VMPAGE+7 

VMPABE+*95 

VMPAGE+$10D 

VMPAGE+*UA 



$3400 



STARTING PAGE OF PRINT 
UTILITIES. 



PRPAGE+*40 

PRPAGE+S72 

PRPAGE+*7D 

PRPAGE+*96 

PRPAGE+$83 

PRPAGE+*112 

PRPAGE+*12B 



286 



2080 






5 


2090 








2100 






5 


2110 






\ 


2120 






5 


2130 








2140 








2150 






5 


2160 






? 


2170 








2180 






5 


2190 






5 


2200 








2210 








2220 








2230 








2240 








2250 








2260 






5 


2270 






5 


2280 






5 


2290 






5 


2300 






5 


2310 






5 


2320 






9 


2330 


0000 


= 3A50 




2340 






5 


2350 






5 


2360 






5 


2370 






5 


2380 






; 


2390 






5 


2400 








2410 








2420 








2430 








2440 








2450 








2460 








2470 








2480 








2490 








2500 








2510 








2520 








2530 








2540 








2550 








2560 








2570 








2580 








2590 








2600 


3A50 


20CF39 


AB 


2610 


3A53 


A202 





HEX.PG = *3500 



ADDRESS OF PAGE IN WHICH 
HEXDUMP CODE STARTS. 



PR. ADR 
NEXTSL 



DSPAGE 



ONEBYT 
TWOBYT 
LPAREN 
RPAREN 
X INDEX 
YINDEX 



HEX.PG+S9B 
HEX.PG+$27D 



$3900 



START OF DISASSEMBLER CODE. 



DSPAGE+SC8 
DSPAGE+*CF 
DSPAGE+*E1 
DSPAGE+*E5 
DSPAGE+SEB 
DSPAGE+$F6 



* = DSPAGE+$150 



**#*************##*#******#**#*#*****#####** 



ADDRESSING MODE SUBROUTINES 



*********#*#******#*#*****#*##**##***♦***### 



ABSOLUTE MODE 



ABSLUT JSR TWOBYT 
LDX #2 



PRINT A TWO-BYTE OPERAND. 
OPERAND HAS TWO BYTES. . . 
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2620 


3A55 


A904 


2630 


3A57 


60 


2640 






2650 






2660 






2670 






2680 






2690 






2700 






2710 






2720 






2730 


3A58 


20503A 


2740 


3A5B 


20FB39 


2750 


3A5E 


A202 


2760 


3A60 


A906 


2770 


3A62 


60 


2780 






2790 






2300 






2810 






2820 






2830 






2840 






2850 






2860 






2870 


3A63 


20503A 


2880 


3A66 


20F639 


2890 


3A69 


A202 


2900 


3A6B 


A906 


2910 


3A6D 


60 


2920 






2930 






2940 






2950 






2960 






2970 






2980 






2990 






3000 


3A6E 


A941 


3010 


3A70 


204034 


3020 


3A73 


A200 


3030 


3A75 


A901 


3040 


3A77 


60 


3050 






3060 






3070 






3080 






3090 






3100 






3110 






3120 






3130 






3140 


3A78 


A200 


3150 


3A7A 


A900 



LDA #4 
RTS 



..-AND FOUR CHARACTERS. 
RETURN TO CALLER. 



ABSOLUTE, X MODE 



ABS.X JSR ABSLUT 
JSR X INDEX 
LDX #2 
LDA #6 
RTS 



PRINT A COMMA AND AN "X". 
OPERAND HAS 2 BYTES... 
...AND SIX CHARACTERS. 
RETURN TO CALLER. 



ABSOLUTE, Y MODE 



ABS.Y 



JSR ABSLUT 
JSR Y INDEX 
LDX #2 
LDA #6 
RTS 



ACCUMULATOR MODE 



ACC 



LDA #'A' 
JSR PR.CHR 
LDX #0 
LDA #1 
RTS 



PRINT THE LETTER "A". 

OPERAND HAS NO BYTES. 
...AND ONE CHARACTER. 
RETURN TO CALLER. 



IMPLIED MODE 



IMPLID LDX #0 
LDA #0 



OPERAND HAS NO BYTES. 
...AND NO CHARACTERS. 
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3160 


3A7C 


60 


3170 






3180 






3190 






3200 






3210 






3220 






3230 






3240 






3250 






3260 


3A7D 


A923 


3270 


3A7F 


204034 


3280 






3290 


3A82 


A924 


3300 


3A84 


204034 


3310 


3A87 


20C839 


3320 






3330 


3A8A 


A201 


3340 


3A8C 


A904 


3350 


3A8E 


60 


3360 






3370 






3380 






3390 






3400 






3410 






3420 






3430 






3440 






3450 


3A8F 


20E139 


3460 


3A92 


20503A 


3470 


3A95 


20E539 


3480 


3A98 


A906 


3490 






3500 


3A9A 


A202 


3510 






3520 


3A9C 


60 


3530 






3540 






3550 






3560 






3570 






3580 






3590 






3600 






3610 






3620 


3A9D 


20E139 


3630 


3AA0 


20F33A 


3640 






3650 


3AA3 


20E539 


3660 


3AA6 


A201 


3670 


3AA8 


A906 


3680 


3AAA 


60 


3690 







RTS 



IMMEDIATE MODE 



1MMEDT LDA #'#' 

JSR PR-CHR 

n 

LDA #'*' 
JSR PR.CHR 
JSR ONEBYT 

LDX #1 
LDA #4 
RTS 



PRINT A 



CHARACTER. 



PRINT A DOLLAR SIGN TO 
INDICATE HEXADECIMAL- 
PRINT ONE-BYTE OPERAND IN 
HEXADECIMAL FORMAT. 
OPERAND HAS ONE BYTE... 
...AND FOUR CHARACTERS. 
RETURN TO CALLER. 



INDIRECT MODE 



INDRCT JSR LPAREN 

JSR ABSLUT 

JSR RPAREN 

LDA #6 

LDX #2 

RTS 



PRINT LEFT PARENTHESIS. 

PRINT TWO-BYTE OPERAND. 

PRINT RIGHT PARENTHESIS. 

A HOLDS NUMBER OF CHARACTERS 

IN OPERAND. 

X HOLDS NUMBER OF BYTES IN 

OPERAND. 

RETURN TO CALLER. 



INDIRECT, X MODE 



; 

IND.X 



JSR LPAREN 
JSR ZERO.X 

JSR RPAREN 
LDX #1 
LDA #6 
RTS 



PRINT A ZERO PAGE ADDRESS, 
A COMMA, AND THE LETTER "X". 

ONE BYTE IN OPERAND. 

6 CHARACTERS IN OPERAND. 
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3 700 






5 






3710 






5 






3720 






5 






3730 






5 






3740 






5 


INDIRECT, Y 


3750 






» 






3760 






n 






3770 






5 






3780 


3AAB 


20E139 


IND.Y 


JSR 


LPAREN 


3790 


3AAE 


20EB3A 




JSR 


ZERQPG 


3800 


3AB1 


20E539 




JSR 


RPAREN 


3810 


3AB4 


20F639 




JSR 


YINDEX 


3820 


3AB7 


A201 




LDX 


#1 


3830 


3AB9 


A906 




LDA 


#6 


3840 


3ABB 


60 




RTS 




3850 






5 






3860 






5 






3870 






5 






3880 






5 






3890 






5 






3900 






5 




RELATIV 


3910 






? 






3920 






5 






3930 






? 






3940 


3ABC 


200D33 


RELATV 


JSR 


INC.SL 


3950 


3ABF 


201235 




JSR 


PUSHSL 


3960 


3AC2 


209532 




JSR 


GET.SL 


3970 


3AC5 


48 




PHA 




3980 


3AC6 


200D33 




JSR 


INC.SL 


3990 






■i 






4000 






5 






4010 






ji 






4020 


3AC9 


68 




PLA 




4030 


3ACA 


C900 




CMP 


#0 


4040 


3ACC 


1003 




BPL 


FORWRD 


4050 






5 






4060 






5 






4070 






5 






4080 






If 






4090 


3ACE 


CE0632 




DEC 


SELECT+1 


4100 






5 






4110 






5 






4120 






jr 






4130 






5 






4140 


3AD1 


08 


FORWRD 


PHP 




4150 


3AD2 


D8 




CLD 




4160 






f 






4170 


3AD3 


18 




CLC 




4180 


3AD4 


6D0532 




ADC 


SELECT 


4190 


3AD7 


9003 




BCC 


RELEND 


4200 


3AD9 


EE0632 




INC 


SELECT+1 


4210 


3ADC 


8D0532 


RELEND 


STA 


SELECT 


4220 






5 






4230 






5 







PRINT A ZERO PAGE ADDRESS. 

PRINT A COMMA AND A "Y". 
OPERAND HAS 1 BYTE. . . 
...AND 8 CHARACTERS. 



SELECT NEXT BYTE. 

SAVE SELECT POINTER ON STACK. 

GET OPERAND BYTE- 

SAVE IT ON STACK. 

INCREMENT SELECT POINTER 

SO IT POINTS TO NEXT OPCODE. 

(RELATIVE BRANCHES ARE 

RELATIVE TO NEXT OPCODE.) 

RESTORE OPERAND BYTE TO ACC. 

IS IT PLUS OR MINUS? 

IF PLUS, IT MEANS A FORWARD 

BRANCH. 

OPERAND IS MINUS, SO WE'LL 
BRANCH BACKWARD. 
BRANCHING BACKWARD IS LIKE 
BRANCHING FORWARD FROM ONE 
PAGE LOWER IN MEMORY. 



SAVE CALLER'S DECIMAL FLAG. 

CLEAR DECIMAL MODE, FOR 

BINARY ADDITION. 

PREPARE TO ADD. 

ADD OPERAND BYTE TO SELECT. 



NOW SELECT POINTS TO ADDRESS 
SPECIFIED BY RELATIVE 
BRANCH INSTRUCTION. 
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4240 


3ADF 


28 


4250 






4260 


3AE0 


209B35 


4270 






4280 


3AE3 


202B35 


4290 






4300 


3AE6 


A201 


4310 


3AE8 


A904 


4320 


3AEA 


60 


4330 






4340 






4350 






4360 






4370 






4380 






4390 






4400 






4410 






4420 


3AEB 


20C839 


4430 


3AEE 


A201 


4440 


3AF0 


A902 


4450 


3AF2 


60 


4460 






4470 






4480 






4490 






4500 






4510 






4520 






4530 






4540 






4550 


3AF3 


20EB3A 


4560 


3AF6 


20EB39 


4570 


3AF9 


A201 


4580 


3AFB 


A904 


4590 


3AFD 


60 


4600 






4610 






4620 






4630 






4640 






4650 






4660 






4670 






4680 






4690 


3AFE 


20EB3A 


4700 


3B01 


20F639 


4710 


3B04 


A201 


4720 


3B06 


A904 


4730 


3B08 


60 


4740 






4750 






4760 






4770 







PLP 




JSR 


PR. ADR 


JSR 


POP.BL 


LDX 


#1 


LDA 


#4 


RTS 





RESTORE CALLER'S DECIMAL 

FLAG. 

PRINT ADDRESS SPECIFIED 

BY INSTRUCTION. 

MAKE SELECT POINT TO 

ADDRESS OF OPERAND. 

OPERAND HAD ONE BYTE. . . 

AND FOUR CHARACTERS. 

RETURN TO CALLER. 



ZERO PAGE MODE 



ZEROPG JSR ONEBYT 
LDX #1 
LDA #2 
RTS 



PRINT ONE-BYTE OPERAND. 
OPERAND HAS ONE BYTE. . . 
...AND TWO CHARACTERS. 



ZERO PAGE, X MODE 



ZERO.X JSR ZEROPG 
JSR X INDEX 
LDX #1 
LDA #4 
RTS 



PRINT THE ZERO PAGE ADDRESS. 
PRINT A COMMA AND AN "X". 
OPERAND HAS 1 BYTE... 
...AND FOUR CHARACTERS. 
RETURN TO CALLER. 



ZERO PAGE ,Y MODE 



ZERO.Y JSR ZEROPG 
JSR YINDEX 
LDX #1 
LDA #4 
RTS 
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4780 






4790 






4600 






4810 






4820 






4830 






4840 






4850 






4860 






4870 






4880 






4890 






4900 






4910 






4920 






4930 






4940 






4950 






4960 






4970 






4980 






4990 






5000 






5010 






5020 






5030 






5040 






5050 






5060 






5070 






S080 






5090 






5100 






5110 






5120 






5130 






5140 






5150 






5160 


3B09 


68 


5170 


3B0A 


68 


5180 






5190 


360B 


68 


5200 


3B0C 


68 


5210 






5220 






5230 






5240 






5250 






5260 


3B0D 


207D37 


5270 


3B10 


300D 


5280 


3B12 


209532 


5290 


3B15 


C9FF 


5300 


3B17 


F006 


5310 


3B19 


204034 



A PSEUDO-ADDRESSING MODE 
FOR EMBEDDED TEXT: TEXT MODE. 



THE PSEUDO-OPCODE TEX <*7F> BEGINS ANY 
STRING OF TEXT AND PRINT CONTROL CHARACTERS. 
THE PSEUDO-TEXT CHARACTER ETX <*FF> ENDS ANY 
SUCH STRING. TEX HAS A PSEUDO- ADDRESSING 
MODE: TEXT MODE. IN TEXT MODE, WE PRINT THE 
STRING AND RETURN, WITHOUT DUMPING THE LINE 
IN HEX. THE STRING MAY BE OF ANY LENGTH. 



TXMODE PL A 
PLA 

PLA 
PLA 



JSR NEXTSL 
BMI TXEXIT 
JSR GET.SL 
CMP #ETX 
BEQ TXEXIT 
JSR PR.CHR 



POP RETURN ADDRESS TO 
OPERND. 

POP REJURN ADDRESS TO 
DSLINE. 

NOW DSLINE S CALLER IS ON 
THE STACK. 



ADVANCE PAST TEX PSEUDO-OP. 

RETURN IF REACHED EA. 

GET THE CHARACTER. 

IS IT END OF TEXT? 

IF SO, STRING ENDED. 

IF NOT, PRINT CHARACTER. 
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5320 


3B1C 


18 


5330 


3B1D 


90EE 


5340 






5350 






5360 


3B1F 


207234 


5370 


3B22 


207D37 


5380 


3B25 


60 


5390 






5400 






5410 






5420 






5430 






5440 






5450 






5460 






5470 






5480 






5490 






5500 






5510 






5520 






5530 






5540 






5550 






5560 






5570 






5580 






5590 


3B26 


783A 


5600 






5610 


3B28 


6E3A 


5620 


3B2A 


7D3A 


5630 


3B2C 


EB3A 


5640 


3B2E 


F33A 


5650 


3B30 


FE3A 


5660 


3B32 


503A 


5670 


3B34 


583A 


5680 


3B36 


633A 


5690 


3B38 


783A 


5700 


3B3A 


BC3A 


5710 


3B3C 


9D3A 


5720 


3B3E 


AB3A 


5730 


3B40 


8F3A 


5740 


3B42 


093B 



CLC 

BCC TXMODE+4 



TXEXIT JSR CR-LF 
JSR NEXTSL 
RTS 



BRANCH BACK 
CHARACTER. 



TO GET NEXT 



ADVANCE TO A NEW LINE. 
ADVANCE TO NEXT OPCODE. 
RETURN TO CALLER OF DSLINE. 



******************************************** 

TABLE OF ADDRESSING MODE SUBROUTINES 
******************************************** 



SUBS 



.WORD IMF'LID 

.WORD ACC 
.WORD IMMEDT 
.WORD ZEROPB 
.WORD ZERO.X 
.WORD ZERO.Y 
.WORD ABSLUT 
.WORD ABS.X 
-WORD ABS.Y 
.WORD IMPLID 
.WORD RELATV 
.WORD IND.X 
.WORD IND.Y 
.WORD INDRCT 
.WORD TXMODE 



ADDRESSING MODE IS INVALID, 
HENCE IMPLIED. 
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CROSS REFERENCE LISTING: 



ABS.X 


3A58 


CR 


000 D 


ETX 


00FF 


IMMEDT 


3A7D 


IND.y 


3AAB 


NE XT Si- 


37 7D 


PR. BYT 


3483 


RELA TV 


3ABC 


SPACE 


347D 


TWOBYT 


39CF 


VMPAGE 


3200 


-cERO.Y 


3AFE 



ABS-Y 


3A63 


CR-LF 


3472 


FORWRD 


3AD1 


IMPLID 


3A78 


INDRCT 


3A8F 


ONEBYT 


39C8 


PR.CHR 


3440 


RELEND 


3ADC 


SPACES 


3496 


TXEXIT 


3BIF 


X INDEX 


39EB 


ZEROPG 


3AEB 



ABSLUT 


3A50 


DEC.SL 


331A 


GET.SL 


3295 


INC.SL 


330D 


LF 


000A 


POP.SL 


352B 


PRPAGE 


3400 


RPAREN 


39E5 


SUBS 


3B26 


TXMODE 


3B09 


YINDEX 


39F6 



ACC 

DSPAGE 

HEX.PG 

IND.X 

LPAREN 

PR. ADR 

PUSHSL 

SELECT 

TEX 

VISMON 

ZERO- X 



3A6E 
3900 
3500 
3A9D 
39E1 
359B 
3512 
3205 
007F 
3207 
3AF3 
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Appendix C8: 

Table-Driven Disassembler (Tables) 
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1000 
1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 



APPENDIX C8: 



ASSEMBLER LISTING OF 
TABLE-DRIVEN DISASSEMBLER 

TABLES 



SEE CHAPTER 9 OF TOP-DOWN ASSEMBLY LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 



BY KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



******************************************** 

CONSTANTS 
******************************************** 



TEX 



ETX 



■= $7F 



THIS CHARACTER MUST START 
ANY MESSAGE. 



= $FF 



THIS CHARACTER MUST END 
ANY MESSAGE. 
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1540 






1550 






1560 






1570 






1580 






1590 






1600 






1610 






1620 






1630 






1640 






1650 






1660 






1670 






1680 






1690 






1700 






1710 






1720 






1730 






1740 






1750 






1760 






1770 






1780 






1790 






1800 






1810 






1820 


0000 


= 3B50 


1830 






1840 






1850 






1860 






1870 






1880 


3B50 


7F 


1890 






1900 






1910 






1920 


3B51 


424144 


1930 


3B54 


414443 


1940 


3B57 


414E44 


1950 


3B5A 


41534C 


1960 


3B5D 


424343 


1970 


3B60 


424353 


1980 


3B63 


424551 


1990 


3B66 


424954 


2000 


3B69 


424D49 


2010 


3B6C 


424E45 


2020 


3B6F 


42504C 


2030 


3B72 


42524B 


2040 


3B75 


425643 


2050 


3B78 


425653 


2060 


3B7B 


434C43 


2070 


3B7E 


434C44 



DSPAGE = $3900 



STARTING PAGE OF DISASSEMBLER 



; LIST OF MNEMONICS 

5 

; ***************#****#***#**************#**♦# 

5 
3 

* = DSPAGE+*250 



MNAMES -BYTE TEX 



SINCE THIS TABLE IS A 
STRING OF CHARACTERS, START 
IT WITH THE TEX PSEUDO-OP. 



.BYTE 


'BAD 


.BYTE 


ADC 


-BYTE 


AND 


.BYTE 


'ASL 


.BYTE 


BCC 


.BYTE 


BCS 


.BYTE 


'BEQ 


.BYTE 


BIT 


-BYTE 


'BMI 


-BYTE 


BNE 


-BYTE 


'BPL 


.BYTE 


BRK 


.BYTE 


BVC 


.BYTE 


BVS 


.BYTE 


'CLC 


-BYTE 


CLD 
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2080 


3B81 


434C49 


2090 


3B84 


434C56 


2100 


3B87 


434D50 


2110 


3B8A 


435058 


2120 


3B8D 


435059 


2130 


3B90 


444543 


2140 


3B93 


444558 


2150 


3B96 


444559 


2160 


3B99 


454F52 


2170 


3B9C 


494E43 


2180 


3B9F 


494E58 


2190 


3BA2 


494E59 


2200 


3BA5 


4A4D50 


2210 


3BA8 


4A5352 


2220 


3BAB 


4C4441 


2230 


3BAE 


4C4458 


2240 


3BB1 


4C4459 


2250 


3BB4 


4C5352 


2260 


3BB7 


4E4F50 


2270 


3BBA 


4F5241 


2280 


3BBD 


504841 


2290 


3BC0 


504850 


2300 


3BC3 


504C41 


2310 


3BC6 


504C50 


2320 


3BC9 


524F4C 


2330 


3BCC 


524F52 


2340 


3BCF 


525449 


2350 


3BD2 


525453 


2360 


3BD5 


534243 


2370 


3BD8 


534543 


2380 


3BDB 


534544 


2390 


3BDE 


534549 


2400 


3BE1 


535441 


2410 


3BE4 


535458 


2420 


3BE7 


535459 


2430 


3BEA 


544158 


2440 


3BED 


544159 


2450 


3BF0 


545358 


2460 


3BF3 


545841 


2470 


3BF6 


545853 


2480 


3BF9 


545941 


2490 


3BFC 


544558 


2500 






2510 


3BFF 


FF 


2520 






2530 






2540 






2550 






2560 






2570 






2580 






2590 






2600 






2610 







BYTE 


'CLI 


BYTE 


*CLV 


BYTE 


CMP 


BYTE 


CPX 


BYTE 


'CPY 


BYTE 


'DEC 


BYTE 


'DEX 


BYTE 


DEY 


BYTE 


'EOR 


BYTE 


INC 


BYTE 


INX 


BYTE 


'INY 


BYTE 


'JMP 


BYTE 


JSR 


BYTE 


LDA 


BYTE 


LDX 


BYTE 


'LDY 


BYTE 


'LSR 


BYTE 


'NOP 


BYTE 


ORA 


BYTE 


'PHA 


BYTE 


'PHP 


BYTE 


PLA 


BYTE 


PLP 


BYTE 


ROL 


BYTE 


ROR 


BYTE 


'RTI 


BYTE 


RTS 


BYTE 


SBC 


BYTE 


SEC 


BYTE 


*SED 


BYTE 


'SEI 


BYTE 


'STA 


BYTE 


STX 


BYTE 


'STY 


BYTE 


TAX 


BYTE 


TAY 


BYTE 


'TSX 


BYTE 


'TXA 


BYTE 


TXS 


BYTE 


'TYA 


BYTE 


'TEX 


BYTE 


ETX 



SINCE THIS IS THE END OF A 
STRING OF CHARACTERS, USE 
ETX TO INDICATE END OF TEXT. 
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2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 



3C00 
3C09 
3C10 
3C18 
3C20 
3C28 
3C30 
3C38 
3C40 
3C48 
3C50 
3C58 
3C60 
3C68 
3C70 
3C78 
3C80 
3C88 



226A010101 

6A0A0170 

6A0A01016A 

0A01 

1F6A010101 

6A0A01 

2B6A010101 

6A0A01 

5807010116 

077901 

7607790116 

077901 

1907010101 

077901 

8807010101 

077901 

7F49010101 

496401 

6D49640155 

496401 

2549010101 

496401 

3149010101 

496401 

8204010101 

047C01 

73047C0155 

047C01 

2804010101 

047C01 

8E04010101 

047CAC 

0191010197 

919401 

4601A30197 

919401 



TABLE OF MNEMONIC CODES 



A MNEMONICS CODE IS ITS OFFSET INTO 
MNAMES, THE LIST OF MNEONIC NAMES. 



MCODES -BYTE $22,$6A, 1 , 1 , 1 ,$6A, $0A, 1 ,$70 
-BYTE $6A,$0A,1,1,$6A,$0A,1 
.BYTE $1F,$6A,1,1,1,$6A,$0A,1 
-BYTE $2B,$6A,1,1,1,$6A,$0A,1 
-BYTE $58, 7, 1,1, $16, 7, $79,1 
-BYTE $76, 7, $79,1, $16, 7, $79,1 
-BYTE $19, 7, 1,1, 1,7, $79,1 
-BYTE $88, 7, 1,1, 1,7, $79,1 
-BYTE $7F, $49, 1,1,1, $49, $64, 1 
-BYTE $6D, $49, $64,1, $55, $49, $64,1 
-BYTE $25, $49, 1,1,1, $49, $64,1 
-BYTE $31, $49, 1,1,1, $49, $64,1 
-BYTE $82,4,1,1,1,4,$7C,1 
-BYTE $73,4,$7C,1,$55,4,$7C,1 
-BYTE $28,4,1,1,1,4,$7C,1 
-BYTE $8E,4,1,1,1,4,$7C,$AC 
-BYTE 1, $91, 1,1, $97, $91, $94,1 
-BYTE $46,1,$A3,1,$97,$91,$94,1 
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3160 


3C90 


0D91010197 


3170 




919401 


3180 


3C9S 


A991A30101 


3190 




910101 


3200 


3CA0 


615B5E0161 


3210 




5B5E01 


3220 


3CA8 


9D5B9A0161 


3230 




5B5E01 


3240 


3CB0 


105B010161 


3250 




5B5E01 


3260 


3CB8 


345B9E0161 


3270 




5B5E01 


3280 


3CC0 


3D3701013D 


3290 




374001 


3300 


3CC8 


52374301 3D 


3310 




374001 


3320 


3CD0 


1C37010101 


3330 




374001 


3340 


3CD8 


2E37010101 


3350 




374001 


3360 


3CE0 


3A8501013A 


3370 




854C01 


3380 


3CE8 


4F8567013A 


3390 




854C01 


3400 


3CF0 


1385010101 


3410 




854C01 


3420 


3CF8 


8B85010101 


3430 




854C01 


3440 






3450 






3460 






3470 






3480 






3490 






3500 






3510 






3520 






3530 






3540 






3550 






3560 






3570 






3580 






3590 






360© 






3610 






3620 






3630 






3640 






3650 






3660 






3670 






3680 






3690 







.BYTE *0D,*91,l f l f *97,*91 f *94,l 
.BYTE *A9,*91,*A3,1,1,*91,1,1 
.BYTE *61,$5B,*5E,1,*61,*5B,*5E,1 
. BYTE *9D,*5B,$9A, 1 ,*6i ,$5B,*5E, 1 
.BYTE *10,$5B,1,1,*61,*5B,$5E,1 
.BYTE *34,*5B,*9E,1,*61,*5B,*5E,1 
.BYTE *3D,*37,1,1,*3D,*37,*40,1 
.BYTE $52,$37,*43,1,*3D,*37,$40,1 
.BYTE *1C,*37,1,1,1,*37,$40,1 
.BYTE *2E,*37,1,1,1,S37,*40,1 
.BYTE *3A,*85,1,1,*3A,*B5,*4C,1 
. BYTE *4F , $85 , *67 , 1 , *3A , $85 , *4C , 1 
.BYTE *13,*85,1,1,1,*85,*4C,1 
.BYTE $8B,*85,1,1,1,*85,*4C,1 



TABLE OF ADDRESSING MODE CODES 



AN ADDRESSING MODE'S CODE IS IIS OFFSET 
INTO SUBS, THE TABLE OF ADDRESSING MODE 
SUBROUTINES. 
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3700 






3710 






3720 






3730 


3D00 


1216000000 


3740 




060600 


3750 


3D08 


1204020000 


3760 




0C0C00 


3770 


3D10 


1418000000 


3780 




0E0E00 


3790 


3D18 


1210000000 


3800 




161600 


3810 


3D20 


0C 16000006 


3820 




060600 


3830 


3D28 


120402000C 


3840 




0C0C00 


3850 


3D30 


1418000000 


3860 




080800 


3870 


3D38 


1210000000 


3880 




0E0E00 


3890 


3D40 


1216000000 


3900 




060600 


3910 


3D48 


120C02000C 


3920 




0C0C00 


3930 


3D50 


1418000000 


3940 




080800 


3950 


3D58 


1210000000 


3960 




0E0E00 


3970 


3D60 


1216000000 


3980 




060600 


3990 


3D68 


120402001 A 


4000 




0C0C00 


4010 


3D70 


1418000000 


4020 




080800 


4030 


3D78 


1210000000 


4040 




0E0E1C 


4050 






4060 


3D80 


0016000006 


4070 




060600 


4080 


3DB8 


120012000C 


4090 




0C0C00 


4100 


3D90 


1418000008 


4110 




080A00 


4120 


3D98 


1210120000 


4130 




0E0000 


4140 


3DA0 


0416040006 


4150 




060600 


4160 


3DA8 


120412000C 


4170 




0C0C00 


4180 


3DB0 


1418000008 


4190 




080A00 


4200 


3DB8 


141012000E 


4210 




0E1000 


4220 


3DC0 


0416000006 


4230 




060600 



MODES -BYTE 18,22,0,0,0,6,6,0 
.BYTE 18,4,2,0,0,12,12,0 
.BYTE 20,24,0,0,0,14,14,0 
-BYTE 18,16,0*0,0,22,22,0 
-BYTE 12,22,0,0,6,6,6,0 
-BYTE 18,4,2,0,12,12,12,0 
.BYTE 20,24,0,0,0,8,8,0 
-BYTE 18,16,0,0,0,14,14,0 
-BYTE 18,22,0,0,0,6,6,0 
.BYTE 18,12,2,0,12,12,12,0 
-BYTE 20,24,0,0,0,8,8,0 
-BYTE 18,16,0,0,0,14,14,0 
-BYTE 18,22,0,0,0,6,6,0 
.BYTE 18,4,2,0,26,12,12,0 
-BYTE 20,24,0,0,0,8,8,0 
-BYTE 18,16,0,0,0,14,14,28 

5 

.BYTE 0,22,0,0,6,6,6,0 

-BYTE 18,0,18,0,12,12,12,0 
-BYTE 20,24,0,0,8,8,10,0 
.BYTE 18,16,18,0,0,14,0,0 
-BYTE 4,22,4,0,6,6,6,0 
.BYTE 18,4,18,0,12,12,12,0 
-BYTE 20,24,0,0,8,8,10,0 
-BYTE 20,16,18,0,14,14,16,0 
-BYTE 4,22,0,0,6,6,6,0 
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4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 



5DC8 



3DD0 



3DD8 



3DE0 



3DE8 



3DF0 



3DF8 



120412000C 

0C0C00 

1418000000 

080800 

1210000000 

0E0E00 

0416000006 

060600 

120412000C 

0C0C00 

1418000000 

080800 

1210000000 

0E0E00 



.BYTE 18,4,18,0,12,12,12,0 
.BYTE 20,24,0,0,0,8,8,0 
.BYTE 18,16,0,0,0,14,14,0 
.BYTE 4,22,0,0,6,6,6,0 
.BYTE 18,4,18,0,12,12,12,0 
.BYTE 20,24,0,0,0,8,8,0 
.BYTE 18,16,0,0,0,14,14,0 



CROSS REFERENCE LISTING: 



DSFAGE 3900 
MODES 3D00 



ETX 
TEX 



00FF 
007F 



MCODES 3C00 



MNAMES 3B50 
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Appendix C9: 

Move Utilities 



305 



1000 
1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 



APPENDIX C9s ASSEMBLER LISTING OF 
MOVE UTILITIES 



SEE CHAPTER 10 OF TOP-DOWN ASSEMBLY LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 



BY KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



******************************************** 

CONSTANTS 
******************************************** 



CR 
LF 
TEX 
ETX 



= *0D CARRIAGE RETURN. 

= *0A LINE FEED. 

= *7F START OF TEXT CHARACTER. 

= *FF END OF TEXT CHARACTER. 



******************************************** 

EXTERNAL ADDRESSES 
******************************************** 



VMPAGE 



$3200 
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1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 



STARTING PAGE OF VISIBLE 
MONITOR CODE. 



SELECT 
VISMON 



VMPAGE+5 
VMPAGE+7 



PRPAGE = $3400 



STARTING PAGE OF PRINT CODE. 



TVT.ON 
PRINT: 
PUSHSL 
POP.SL 



PRPAGE+8 
PRPAGE+$E4 
PRPAGE+$112 
PRPAGE+S12B 



HEX.PG = *3500 



ADDRESS OF PAGE IN WHICH 
HEXDUMP CODE STARTS. 
(HEXDUMP CODE STARTS AT 
*3550, BUT ITS EASIER TO 
COUNT FROM *3500. ) 



SETADS 



HEX.PG+$E3 



0000 = 37B0 



VARIABLES 



* = $37B0 



SA 



EA 



HEX.PG+*52 

POINTER TO START ADDRESS 
OF BLOCK TO BE MOVED. 



SA+2 



POINTER TO END OF BLOCK TO 
BE MOVED. 
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2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 



37B0 0000 



37B2 0000 



NUM 



DEST 



.WORD 



.WORD 



NUMBER OF BYTES IN BLOCK 
TO BE MOVED. ZERO MEANS 
BLOCK CONTAINS 1 BYTE. 



POINTER TO BLOCK'S 
DESTINATION. 



GETPTR 
PUTPTR 



THESE TWO "PAGE POINTERS" 

GET AND PUT BYTES: 
*FB 
GETPTR+2 



MOVE TOOL 



37B4 200834 

37B7 20E434 

37BA 7F0D0A 

37BD 2020202020 
4D4F564520 
544F4F4C2E 

37CC 0O0A0AFF 

37D0 20E335 



37D3 20B938 



MOVER JSR TVT.ON SELECT SCREEN FOR OUTPUT. 
JSR PRINT: DISPLAY A TITLE. 
-BYTE TEX,CR,LF 
-BYTE ' MOVE TOOL. ' ; 



.BYTE CR,LF,LF,ETX 

JSR SET ADS GET START ADDRESS, END 
ADDRESS FROM USER. 

GET DESTINATION ADDRESS 

FROM USER. 

WITH THOSE POINTERS SET, 

WE'RE READY TO EXECUTE MOV.EA: 



JSR SET. DA 
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2620 






2630 






2640 






2650 






2660 






2670 






2680 






2690 






2700 






2710 






2720 






2730 






2740 






2750 






2760 






2770 






2780 






2790 






2800 






2810 






2820 






2830 






2840 






2850 






2860 






2870 


37D6 


AE5535 


2880 


37D9 


38 


2890 


37DA 


AD5435 


2900 


37DD 


ED5235 


2910 


37E0 


8DB037 


2920 


37E3 


B002 


2930 


37E5 


CA 


2940 


37E6 


38 


2950 


37E7 


8A 


2960 


37E8 


ED5335 


2970 


37EB 


8DB137 


2980 


37EE 


B003 


2990 






3000 


37F0 


A900 


3010 


37F2 


60 


3020 






3030 






3040 






3050 






3060 






3070 






3080 






3090 






3100 






3110 






3120 






3130 






3140 


37F3 


A003 


3150 


37F5 


B9FB00 



MOV.EA: MOVE BLOCK SPECIFIED BY SA, EA, DEST 



RETURN CODES: 



ERROR 



OKAY 



= 



= $FF 



THIS RETURN CODE MEANS 
SA < EA, SO MOVE ABORTED. 
THIS RETURN CODE MEANS 
MOVE ACCOMPLISHED. 



MOV.EA LDX EA+1 
SEC 

LDA EA 
SBC SA 
STA NUM 
BCS MOVE. 1 
DEX 
SEC 

MOVE.l TXA 

SBC SA+1 
STA NUM+1 
BCS MOVNUM 

ER.RTN LDA #ERROR 
RTS 



SET NUM EQUAL TO EA 



SA: 



IF EA < SA, 

RETURN WITH ERROR CODE. 



MOVNUM: MOVE BLOCK SPECIFIED BY SA, NUM, DEST. 



MOVNUM LDY #3 SAVE ZERO PAGE BYTES THAT 

LOOP.l LDA QETPTR,Y WILL BE CHANGED. 
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3160 


37F8 


48 


3170 


37F9 


88 


3180 


37FA 


10F9 


3190 






3200 






3210 


37FC 


38 


3220 


37FD 


AD5335 


3230 


3800 


CDB337 


3240 


3803 


9040 


3250 


3805 


D018 


3260 






3270 






3280 


3807 


AD5235 


3290 


380A 


CDB237 


3300 


380D 


9036 


3310 


380F 


D00E 


3320 


3811 


A000 


3330 






3340 


3813 


68 


3350 


3814 


99FB00 


3360 


3817 


C8 


3370 


3818 


C004 


3380 


381A 


D0F7 


3390 


381C 


A9FF 


3400 


381E 


60 


3410 






3420 






3430 






3440 


381F 


20A438 


3450 






3460 






3470 






3480 






3490 


3822 


A000 


3500 






3510 






3520 


3824 


AEB137 


3530 






3540 






3550 


3827 


F00E 


3560 






3570 






3580 






3590 


3829 


B1FB 


3600 


382B 


91FD 


3610 


382D 


C8 


3620 


382E 


D0F9 


3630 






3640 






3650 


3830 


E6FC 


3660 


3832 


E6FE 


3670 


3834 


CA 


3680 


3835 


D0F2 


3690 













PHA 










DEY 




5 






BPL 


LOOP.l 


5 






SEC 
LDA 
CMP 
BCC 


SA+1 

DEST+1 

MOVEUP 


5 






BNE 


MOVEDN 


5 






LDA 
CMP 
BCC 
BNE 


SA 
DEST 
MOVEUP 
MOVEDN 


OK. 


RTN 


LDY 


#0 


5 
LOOP. 


2 


PLA 










STA 


GETPTR,Y 








I NY 










CPY 


#4 








BNE 


LOOP. 2 








LDA 


#OKAY 








RTS 





MOVEDN JSR LOPAGE 



LDY #0 



LDX NUM+1 



BEQ LESSDN 



IF DEST>SA, BRANCH TO MOVE-UP 



IF DEST<SA, BRANCH TO 
MOVE-DOWN. 



IF DEST EQUALS SA, 
RETURN BEARING "OKAY" CODE. 
RESTORE ZERO PAGE BYTES 
THAT WERE CHANGED. 



RETURN W/ n OKAY" CODE. 



SET PAGE POINTERS TO LOWEST 
PAGES IN ORIGIN, DESTINATION 
BLOCKS. 



INITIALIZE PAGE INDEX TO 
BOTTOM OF PAGE. 

USE X TO COUNT THE NUMBER 

OF PAGES TO MOVE. MORE THAN 

ONE PAGE TO MOVE? 

IF NOT, MOVE LESS THAN A 

PAGE. 



IF SO, 
PAGEDN LDA (GETPTR) ,Y MOVE A PAGE DOWN, 

STA (PUTPTR) ,Y STARTING AT THE BOTTOM. 
I NY INCREMENT PAGE INDEX. 

BNE PAGEDN IF PAGE NOT MOVED, MOVE 
= NEXT BYTE.. . 



INC GETPTR+1 

INC PUTPTR+1 

DEX 

BNE PAGEDN 



INCREMENT PAGE POINTERS. 

DECREMENT PAGE COUNT. 
IF A PAGE LEFT TO MOVE, 
MOVE IT AS A PAGE. 
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3700 






5 








3710 


3837 


88 


LESSDN 


DEY 






3720 


3838 


C8 




I NY 




MOVE LESS THAN A PAGE 


3730 


3839 


B1FB 




LDA 


(GETPTR) 


,Y DOWN, STARTING AT THE 


3740 


383B 


91FD 




STA 


<PUTPTR) 


,Y BOTTOM. 


3750 


383D 


CCB037 




CPY 


NUM 


MOVED LAST BYTE? 


3760 


3840 


D0F6 




BNE 


LESSDN-*- 1 


IF NOT, MOVE NEXT BYTE... 


3770 


3842 


4C1138 




JMP 


OK.RTN 


IF SO, RETURN BEARING 


3780 












"OKAY" CODE. 


3790 














3800 














3810 














3820 


3845 


ADB137 


MQVEUP 


LDA 


NUM+1 


MORE THAN A PAGE TO MOVE? 


3830 


3848 


F048 




BEQ 


LESSUP 


IF NOT, MOVE LESS THAN A 


3840 






; 






PAGE. 


3850 














3860 














3870 














3880 












TO MOVE MORE THAN A PAGE, 


3890 












SET PAGE POINTERS TO 


3900 












HIGHEST PAGES IN ORIGIN, 


3910 












DESTINATION BLOCKS. 


3920 














3930 














3940 












TO DO THIS, FIRST SET 


3950 












(X,Y) EQUAL TO NUM - *FF, 


3960 












(RELATIVE ADDRESS OF 


3970 












HIGHEST PAGE IN A BLOCK. ) 


3980 














3990 














4000 


384A 


ACB137 




LDY 


NUM+1 




4010 


384D 


ADB037 




LDA 


NUM 




4020 


3850 


38 




SEC 






4030 


3851 


E9FF 




SBC 


#*FF 




4040 


3853 


B001 




BCS 


NEXT.l 




4050 


3855 


88 




DEY 






4060 














4070 


3856 


AA 


NEXT. 1 


TAX 






4080 














4090 












NOW (X,Y) - NUM - $FF. 


4100 












X IS LOW BYTE, Y IS HIGH BYTE 


4110 














4120 














4130 


3857 


84FE 




STY 


PUTPTR+1 




4140 


3859 


8A 




TXA 






4150 


385A 


16 




CLC 






4160 


385B 


6D5235 




ADC 


SA 




4170 


385E 


85FB 




STA 


GETPTR 




4180 


3860 


9001 




BCC 


NEXT. 2 




4190 


3862 


C8 




I NY 






4200 






; 








4210 






; 








4220 


3863 


98 


NEXT. 2 


TYA 






4230 


3864 


6D5335 




ADC 


SA+1 
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4240 


3867 


85FC 


4250 






4260 






4270 






4280 






4290 






4300 


3869 


8A 


4310 


386A 


18 


4320 


386B 


6DB237 


4330 


386E 


85FD 


4340 


3870 


9002 


4350 


3872 


E6FE 


4360 






4370 






4380 


3874 


A5FE 


4390 


3876 


6DB337 


4400 


3879 


85FE 


4410 






4420 






4430 






4440 






4450 






4460 


387B 


AEB137 


4470 






4480 






4490 


387E 


A0FF 


4500 






4510 






4520 


3880 


B1FB 


4530 


3882 


91FD 


4540 


3884 


88 


4550 






4560 






4570 


3885 


D0F9 


4580 






4590 






4600 






4610 






4620 


3887 


B1FB 


4630 


3889 


91FD 


4640 


388B 


C6FC 


4650 


388D 


C6FE 


4660 


388F 


CA 


4670 


3890 


D0EC 


4680 






4690 






4700 






4710 


3892 


20A438 


4720 


3895 


ACB037 


4730 






4740 


3898 


B1FB 


4750 


389A 


91FD 


4760 


389C 


88 


4770 


389D 


C0FF 



STA GETPTR+1 



TXA 

CLC 

ADC DEST 

STA PUTPTR 

BCC NEXT- 3 

INC PUTPTR+1 



NEXT. 3 LDA PUTPTR+1 
ADC DEST+1 
STA PUTPTR+1 



LDX NUM+1 



PAGEUP LDY #*FF 



NOW GETPTR IS SA+NUM-*FF. 
(LAST PAGE IN SOURCE BLOCK.) 



NOW PUTPTR IS DEST+NUM-SFF. 
(LAST PAGE IN DEST BLOCK. ) 



LOAD X WITH NUMBER OF 
PAGES TO MOVE. 

SET PAGE INDEX TO TOP OF 
PAGE. 



LOOP. 3 LDA ( GETPTR ),Y MOVE A PAGE UP, STARTING 
STA ( PUTPTR ),Y AT THE TOP OF THE BLOCK. 
DEY DECREMENT PAGE INDEX. 

; ABOUT TO MOVE LAST BYTE 

i IN PAGE? 

BNE LOOP. 3 IF NOT, HANDLE NEXT BYTE. 
AS BEFORE. 



LDA 

STA 

DEC GETPTR+1 

DEC PUTPTR+1 

DEX 

BNE PAGEUP 



LESSUP JSR LOPAGE 
LDY NUM 



(GETPTR),Y IF SO, MOVE THIS BYTE FROM 
(PUTPTR), Y SOURCE TO DESTINATION. 



DECREMENT PAGE POINTERS. 
DECREMENT PAGE COUNTER. 
IF A PAGE LEFT TO MOVE, 
MOVE IT AS A PAGE. . . . 



MOVE LESS THAN A PAGE UP, 
STARTING AT THE TOP. 



MOVE. 6 LDA (GETPTR),Y COPY A BYTE FROM ORIGIN 
STA (PUTPTR), Y TO DESTINATION. 
DEY DECREMENT PAGE INDEX. 

CPY #*FF COPIED THE LAST BYTE? 
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4780 


389F 


D0F7 


4790 


38 A 1 


4C1138 


4800 






4810 






4820 






4830 






4840 






4850 






4860 






4870 






4880 






4890 






4900 






4910 






4920 






4930 






4940 






4950 






4960 






4970 






4980 






4990 






5000 






5010 






5020 






5030 


38A4 


AD5235 


5040 


38A7 


85FB 


5050 


38A9 


AD5335 


5060 


38AC 


85FC 


5070 






5080 






5090 


38AE 


ADB237 


5100 


38B1 


85FD 


5110 


38B3 


ADB337 


5120 


38B6 


85FE 


5130 






5140 






5150 


38B8 


60 


5160 






5170 






5180 






5190 






5200 






5210 






5220 






5230 






5240 






5250 






5260 






5270 






5280 






5290 






5300 






5310 







BNE MOVE- 6 IF NOT, HANDLE AS BEFORE. 
J MP OK.RTN IF SO, RETURN BEARING 
"OKAY" CODE. 



**********************************##*#**#*#* 

SET PAGE POINTERS TO BOTTOM OF 
ORIGIN, DESTINATION BLOCKS. 

****************** ************************** 



LOPAGE LDA SA 

STA GETPTR 
LDA SA+1 
STA GETPTR+1 



LDA DEST 
STA PUTPTR 
LDA DEST+1 
STA PUTPTR+1 



RTS 



******************************************** 

LET USER SET DESTINATION ADDRESS 
******************************************** 
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5320 






5330 






S3 40 






5350 






5360 






5370 






5380 






5390 






5400 






5410 






5420 


38B9 


200834 


5430 


38BC 


20E434 


5440 


38BF 


7F0D0A 


5450 


38C2 


5345542044 


5460 




455354494E 


5470 




4154494F4E 


5480 




20414E4420 


5490 




5052455353 


5500 




205 12E 


5510 


38DE 


FF 


5520 


38DF 


200732 


5530 






5540 


38E2 


AD0532 


5550 


38E5 


8DB237 


5560 


38E8 


AD0632 


5570 


38EB 


8DB337 


5580 






5590 


38EE 


60 



SET. DA JSR TVT.ON LET USER SET DESTINATION 
JSR PRINT: 

.BYTE TEX,CR,LF ; 

.BYTE SET DESTINATION AND PRESS Q. ' ; 



.BYTE ETX 
JSR VISMON 

DAHERE LDA SELECT 
STA DEST 
LDA SELECT+1 
STA DEST+1 

RTS 



LET USER SET AN ADDRESS. 
SET DEST EQUAL TO SELECT. 



RETURN. 







CROSS REFERENCE 


LISTING: 








CR 


000D 


DAHERE 


38E2 


DEST 


37B2 


EA 


3554 


ER.RTN 


37F0 


ERROR 


0000 


ETX 


00FF 


GETPTR 


00FB 


HEX.PG 


3500 


LESSDN 


3837 


LESSUP 


3892 


LF 


000A 


LOOP.l 


37F5 


LOOP. 2 


3813 


LOOP. 3 


3880 


LOPAGE 


3QA4 


MOV.EA 


37D6 


MOVE.l 


37E7 


MOVE. 6 


3898 


MOVEDN 


381F 


MOVER 


37B4 


MOVEUP 


3845 


MOVNUM 


37F3 


NEXT. 1 


3856 


NEXT. 2 


3863 


NEXT. 3 


3874 


NUM 


37B0 


OK.RTN 


3811 


OKAY 


00FF 


PAGEDN 


3829 


PAGEUP 


3S7E 


POP.SL 


352B 


PRINT 


34E4 


PRPAGE 


3400 


PUSHSL 


3512 


PUTPTR 


00FD 


SA 


3552 


SELECT 


3205 


SET. DA 


38B9 


SETADS 


35E3 


TEX 


007F 


TVT.ON 


3408 


VISMON 


3207 


VMPAGE 


3200 
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Appendix CIO: 

Simple Text Editor (Top Level and 
Display Subroutines) 
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1000 
1010 

1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 



APPENDIX C10: 



ASSEMBLER LISTINB OF 

A SIMPLE TEXT EDITOR (TOP 

LEVEL AND DISPLAY SUBROUTINES) 



SEE CHAPTER 11 OF TOP-DOWN ASSEMBLY LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 



BY KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



; CONSTANTS 



CARRIAGE RETURN. 

LINE FEED. 

THIS CHARACTER MUST START 
ANY MESSAGE. 

THIS CHARACTER MUST END 
ANY MESSAGE. 

GRAPHIC FOR INSERT MODE 
GRAPHIC FOR OVERSTRIKE MODE. 



CR 


= $0D 


LF 


= *0A 


TEX 


* *7F 



ETX 



= *FF 



INSCHR = 'I ' 
OVRCHR = 'O' 
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1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1P^0 
<<330 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 



EXTERNAL ADDRESSES 
********************************************* 



POINTER TO A SCREEN ADDRESS. 
SYSTEM DATA BLOCK. 





TV.PTR 


= 


*FB P< 


5 


PARAMS 


= 


$3000 S 


5 


TVCOLS 


__ 


PARAMS+3 




TVROWS 


= 


PARAMS+4 




ARROW 


= 


PARAMS+7 




TVSUBS 


_ 


'3100 




CLR.XV 


= 


TVSUBS+S13 




TVHOME 


3= 


TVSUBS+*2B 




TVTOXY 


= 


TVSUBS+*3C 




TVDOWN 


= 


TVSUBS+*76 




TVSKIP 


= 


TVSUBS+$7F 




TVPLUS 


= 


TVSUBS+$81 




TV. PUT 


= 


TVSUBS+$9B 




VUBYTE 


ss 


TVSUBS+*A3 




TVPUSH 


= 


TVSUBS+*C4 




TV. POP 


= 


TVSUBS+$D3 



VMPAGE = *3200 



STARTING PAGE OF VISIBLE 
MONITOR CODE. 



SELECT 
GET.SL 
INC.SL 
DEC.SL 



VMPAGE+5 
VMPAGE+*95 
VMPAGE+*10D 
VMPAGE+*11A 



PRPAGE = *3400 



STARTING PAGE OF PRINT 
UTILITIES. 



TVT.ON 
TVTOFF 
PR. ON 
PR. OFF 



PRPAGE+8 
PRPAGE+$0E 
PRPAGE+$14 
PRPAGE+S1A 
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2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 



PR.CHR 
PRINT: 
PUSHSL 
POP.SL 



PRPAGE+*40 
PRPAGE+*E4 
PRPAGE+$112 
PRPAGE+*12B 



HEX.PG = $3500 



ADDRESS OF PAGE IN WHICH 
HEX DUMP CODE STARTS. 



SA 


= 


HEX.PG+*52 


EA 


= 


SA+2 


SETADS 


= 


HEX . PG+*E3 


NEXTSL 


= 


HEX.PG+*27D 


GOTOSA 


= 


HEX.PG+*29A 



EDPAGE = *3E00 

STARTING PAGE OF EDITOR. 

EDIT IT = EDPAGE+$C8 



0000 = 3E00 



VARIABLES 
* = EDPAGE 



3E00 
3E01 



00 
00 



COUNTR .BYTE 
EDMODE .BYTE 



COUNTER USED BY LINE. 2. 
FLAG: FOR OVERSTRIKE, 
1 FOR INSERT. 



TEXT EDITOR: TOP LEVEL 
ft********************************************** 
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2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 



3E02 200F3E 

3E05 20373E 

3E08 20C83E 

3E0B 18 

3E0C 18 

3E0D 90F6 



EDITOR JSR SETBUF 
EDLOOP JSR SHOW IT 

9 

JSR EDI f IT 

5 

CLC 
CLC 
BCC EDLOOP 



INITIALIZE BUFFER POINTERS. 
SHOW USER A PORTION OF 
EDIT BUFFER. 

LET THE USER EDIT THE BUFFER 
OR MOVE ABOUT WITHIN IT. 

LOOP BACK TO SHOW THE 
CURRENT TEXT. 



3E0F 
3E12 
3E15 
3E19 



3E2C 
3E30 

3E33 

3E36 



200834 

20E434 

7F0D0A0A 

5345542055 

5020454449 

5420425546 

4645522E 

0D0A0AFF 

20E335 

209A37 

60 



INITIALIZE BUFFER POINTERS 



SETBUF JSR TVT.ON SELECT SCREEN. 

JSR PRINT: DISPLAY "SET UP EDIT BUFFER. 

.BYTE TEX,CR,LF,LF 

.BYTE SET UP EDIT BUFFER.' ; 



-BYTE CR,LF,LF,ETX 

JSR SET ADS LET USER SET LOCATION AND 

SIZE OF EDIT BUFFER. 
JSR GOTOSA MAKE SELECT PT TO START OF 

BUFFER... 
RTS AND RETURN TO CALLER. 



to******************************************* 



DISPLAY A PORTION OF EDIT BUFFER 



***#*******#*#******#*****#*#*************** 
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3160 






3170 






3180 






3190 






3200 






3210 


3E37 


20C431 


3220 






3230 


3E3A 


202B31 


3240 






3250 






3260 






3270 


3E3D 


AE0330 


3280 


3E40 


A003 


3290 


3E42 


201331 


3300 






3310 






3320 


3E45 


202B31 


3330 






3340 


3E48 


207631 


3350 


3E4B 


20C431 


3360 


3E4E 


205E3E 


3370 






3380 






3390 


3E51 


20D331 


3400 


3E54 


207631 


3410 






3420 


3E57 


20883E 


3430 






3440 






3450 


3E5A 


20D331 


3460 


3E5D 


60 


3470 






3480 






3490 






3500 






3510 






3520 






3530 






3540 






3550 






3560 






3570 






3580 






3590 






3600 






3610 






3620 






3630 






3640 






3650 






3660 


3E5E 


201235 


3670 


3E61 


AD0330 


3680 


3E64 


4A 


3690 


3E65 


AA 



SHOW IT JSR TVPUSH 
JSR TVHOME 



LDX TVCOLS 
LDY #3 
JSR CLR.XY 



JSR TVHOME 

JSR TVDOWN 
JSR TVPUSH 
JSR LINE- 2 



JSR TV -POP 
JSR TVDOWN 

JSR LINE. 3 



JSR TV- POP 
RTS 



SAVE THE ZERO PAGE BYTES 

WE'LL USE. 

SET HOME POSITION OF EDIT 

DISPLAY. 



CLEAR THREE ROWS FOR 
THE EDIT DISPLAY. 



RESTORE TV.PTR TO HOME 
POSITION OF EDIT DISPLAY- 
SET TV.PTR TO BEGINNING 
OF LINE TWO AND SAVE IT. 
DISPLAY TEXT IN LINE TWO. 



SET TV.PTR TO BEGINNING OF 

OF THIRD LINE OF EDIT 

DISPLAY. 

DISPLAY THIRD LINE OF EDIT 

DISPLAY. 

RESTORE ZERO PAGE BYTES USED. 
RETURN TO CALLER, WITH EDIT 
DISPLAY ON SCREEN, REST OF 
SCREEN UNCHANGED, AND ZERO 
PAGE PRESERVED. 



ft***********************************-****-**** 
DISPLAY TEXT LINE 



LINE. 2 JSR PUSHSL 
LDA TVCOLS 
LSR A 
TAX 



SAVE SELECT POINTER. 
SET X EQUAL TO 
HALF THE WIDTH 
OF THE SCREEN. 
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3700 


3E66 


CA 


3710 






3720 


3E67 


201A33 


3730 


3E6A 


CA 


3740 


3E6B 


10FA 


3750 






3760 


3E6D 


AD0330 


3770 


3E70 


8D003E 


3780 






3790 


3E73 


209532 


3800 


3E76 


209B31 


3810 


3E79 


207F31 


3820 


3E7C 


200D33 


3830 






3840 


3E7F 


CE003E 


3850 


3E82 


10EF 


3860 






3870 






3880 


3E84 


202B35 


3890 


3E87 


60 


3900 






3910 






3920 






3930 






3940 






3950 






3960 






3970 






3980 






3990 






4000 






4010 






4020 






4030 






4040 






4050 


3E88 


AO0330 


4060 


3E8B 


4A 


4070 


3E8C 


E902 


4080 


3E8E 


208131 


4090 






4100 






4110 






4120 


3E91 


AD013E 


4130 


3E94 


C901 


4140 


3E96 


D005 


4150 






4160 


3E98 


A949 


4170 


3E9A 


18 


4180 


3E9B 


9002 


4190 


3E9D 


A94F 


4200 


3E9F 


209B31 


4210 


3EA2 


A902 


4220 


3EA4 


208131 


4230 







DEX 

5 
LOOP. 1 JSR DEC. SL- 
OE X 
BPL LOOP. 1 

j 

LDA TVCOLS 
STA COUNTR 

LOOP. 2 JSR GET.SL 

JSR TV. PUT 

JSR TVSKIP 

JSR INC.SL 

5 

DEC COUNTR 
BPL LOOP. 2 



JSR POP.SL 
RTS 



DECREMENT SELECT. . . 

. ..X TIMES. 

INITIALIZE COUNTR. 
(WE'LL DISPLAY TVCOLS 
CHARACTERS. ) 

GET A CHARACTER FROM BUFFER. 
PUT IT ON SCREEN. 
GO TO NEXT SCREEN POSITION. 
ADVANCE TO NEXT BYTE IN 
BUFFER. 

DONE LAST CHARACTER IN ROW? 
IF NOT, DO NEXT CHARACTER. 



RESTORE SELECT FROM STACK. 
RETURN TO CALLER. 



to******************************************* 
DISPLAY STATUS LINE 



LINE. 3 LDA TVCOLS 
LSR A 
SBC #2 
JSR TVPLUS 



LDA EDMODE 

CMP #1 

BNE OVMODE 
5 

LDA #INSCHR 

CLC 

BCC TVMODE 
OVMODE LDA #OVRCHR 
TVMODE JSR TV. PUT 

LDA #2 

JSR TVPLUS 

; 



SELECT CENTER POSITION... 

NOW A IS TVCOLS/2 

NOW A (TVCOLS/2) -2 

NOW TV.PTR IS POINTING TWO 

CHARACTERS TO THE LEFT OF 

CENTER OF LINE 3 OF THE 

EDIT DISPLAY. 

WHAT IS CURRENT MODE? 

IS IT INSERT MODE? 

IF NOT, IT MUST BE OVERSTRIKE 

MODE. 

IF SO, GET INSERT GRAPHIC. 



LOAD A W/OVERSTRIKE CHARACTER. 
PUT MODE GRAPHIC ON SCREEN. 
MOVE TWO POSITIONS TO THE 
RIGHT, SO TV.PTR POINTS TO 
CENTER OF LINE 3 OF EDIT 
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4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 



3EA7 AD0730 

3EAA 209B31 

3EAD A902 

3EAF 208131 



3EB2 AD0632 

3EB5 20A331 

3EB8 AD0532 

3EBB 20A331 

3EBE 60 



LDA ARROW 
JSR TV- PUT 

LDA #2 
JSR TVPLUS 



LDA SELECT+1 
JSR VUBYTE 
LDA SELECT 
JSR VUBYTE 

RTS 



DISPLAY. 

DISPLAY AN UP- ARROW HERE. 



GO TWO POSITIONS TO THE 

RIGHT, SO TV.PTR POINTS TO 

FIELD RESERVED FOR THE 

ADDRESS OF THE CURRENT CHARACTER 

DISPLAY ADDRESS OF CURRENT 



RETURN TO CALLER. 



CROSS REFERENCE LISTING: 



ARROW 


3007 


CLR.XY 


3113 


COUNTR 


3E00 


CR- 


000D 


DEC.SL 


331A 


EA 


3554 


EDITIT 


3EC8 


EDITOR 


3E02 


EDLOOP 


3E05 


EDMODE 


3E01 


EDPAGE 


3E00 


ETX 


00FF 


GET . SL 


3295 


GOTOSA 


379A 


HEX.PG 


3500 


INC.SL 


330D 


INSCHR 


0049 


LF 


000A 


LINE. 2 


3E5E 


LINE. 3 


3E88 


LOOP. 1 


3E67 


LOOP. 2 


3E73 


NEXTSL 


377D 


OVMODE 


3E9D 


OVRCHR 


004F 


PARAMS 


3000 


POP.SL 


352B 


PR.CHR 


3440 


PR -OFF 


341A 


PR. ON 


3414 


PRINT 


34E4 


PRPAGE 


3400 


PUSHSL 


3512 


SA 


3552 


SELECT 


3205 


SETADS 


35E3 


SETBUF 


3E0F 


SHOW IT 


3E37 


TEX 


007F 


TV -POP 


31D3 


TV.PTR 


00FB 


TV. PUT 


319B 


TVCOLS 


3003 


TVDOWN 


3176 


TVHOME 


312B 


TVMODE 


3E9F 


TVPLUS 


3181 


TVPUSH 


31C4 


TVROWS 


3004 


TVSKIP 


317F 


TVSUBS 


3100 


TVT.ON 


3408 


TVTOFF 


340E 


TVTOXY 


313C 


VMPAGE 


3200 


VUBYTE 


31A3 
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Appendix CM: 

Simple Text Editor (EDITIT 
Subroutine) 
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1000 
1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 



APPENDIX Cll: ASSEMBLER LISTING OF 
A SIMPLE TEXT EDITOR 
EDI TIT SUBROUTINE 



SEE CHAPTER 11 OF TOP-DOWN ASSEMBLY LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 



BY KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



******************************************** 

CONSTANTS 
******************************************** 



CR 
LF 

TEX 

ETX 



*0D CARRIAGE RETURN. 
*0A LINE FEED. 



*7F THIS CHARACTER MUST START 
ANY MESSAGE. 

*FF THIS CHARACTER MUST END 
ANY MESSAGE. 
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1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 



EXTERNAL ADDRESSES 



VMPAGE = $3200 

STARTING PAGE OF VISIBLE 

MONITOR CODE. 
SELECT = VMPAGE+5 
VISMON = VMPAGE+7 
GET.SL = VMPAGE+*95 
GETKEY = VMPAGE+*E0 
INC.SL = VMPAGE+*10D 
DEC.SL = VMPAGE+$11A 
PUT.SL = VMPAGE+*12D 



PRPAGE = $3400 



STARTING PAGE OF PRINT 
UTILITIES- 



PR- ON 
PR. OFF 
PR.CHR 
PUSHSL 
POP.SL 



PRPAGE+$14 

PRPAGE+*1A 

PRPAGE+*40 

PRPAGE+*112 

PRPAGE+S12B 



HEX.PG = $3500 



ADDRESS OF PAGE IN WHICH 
HEXDUMP CODE STARTS. 



SA 

EA 

SAHERE 

NEXTSL 

GOTOSA 



MOVERS 



DEST 

MOV-EA 

DAHERE 



HEX.PG+*52 

SA+2 

HEX.PG+*161 

HEX.PG+$27D 

HEX.PG+*29A 



*37B0 



START OF MOVE OBJECT CODE. 



MOVERS+2 

M0VERS+$26 

M0VERS+*132 
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2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 



EDPAGE = $3E00 

STARTING PAGE OF EDITOR. 

EDKEYS = EDPAGE+*C0 



, VARIABLES 



5 



0000 = 3EC0 



EDMODE = EDPAGE-*- 1 



* - EDKEYS 



FOR OVERSTRIKE MODE. 

1 FOR INSERT. 



EDIT FUNCTION KEYS 



3EC0 93 



3EC1 94 



3EC2 ID 



FLSHKY -BYTE *93 



MODEKY .BYTE $94 



NEXTKY .BYTE *1D 



THE EDITOR RECOGNIZES THE 
FOLLOWING KEYS AS FUNCTION KEYS. 
ASSIGN A FUNCTION TO A KEY 
BY STORING THE DESIRED KEY 
CODE FROM YOUR SYSTEM'S 
KEYHANDLER INTO ONE OF THE 
FOLLOWING DATA BYTES: 



THIS KEY FLUSHES THE 
BUFFER OF ANY TEXT. *93 IS 
THE "CLR" KEY. THUS, "CLR" 
TO FLUSH THE BUFFER. 



THIS KEY CAUSES THE EDIT 
TO CHANGE MODES, FROM INSERT 
TO OVERSTRIKE, AND VICE VERSA. 
*94 IS "INS" KEY. THUS, PRESS 
"INS" TO CHANGE MODES. 

THIS KEY SELECTS THE NEXT 
CHARACTER IN THE BUFFER. 
$1D IS THE RIGHT- ARROW. 
THUS, PRESS RIGHT-ARROW TO 
MOVE TO THE RIGHT THROUGH 
THE TEXT BUFFER. 
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2620 


3EC3 


9D 


2630 






2640 






2650 






2660 






2670 






2680 






2690 


3EC4 


10 


2700 






2710 






2720 






2730 






2740 


3EC5 


14 


2750 






2760 






2770 






2780 






2790 


3EC6 


51 


2800 






2810 






2820 






2830 






2840 






2850 






2860 






2870 






2880 






2890 


3EC7 


00 


2900 






2910 






2920 






2930 






2940 






2950 






2960 






2970 






2980 






2990 






3000 






3010 






3020 






3030 






3040 






3050 






3060 






3070 






3080 






3090 






3100 






3110 






3120 


3EC8 


20E032 


3130 






3140 


3ECB 


CDC63E 


3150 


3ECE 


D017 



PREVKY -BYTE *9D 



PRTKEY -BYTE *10 



RUBKEY .BYTE *14 



QUITKY .BYTE 'Q' 



TEMPCH .BYTE 



THIS KEY SELECTS THE PREVIOUS 
CHARACTER IN THE BUFFER. 
*9D IS THE LEFT-ARROW. 
THUS, PRESS LEFT-ARROW TO 
MOVE TO THE LEFT THROUGH 
THE TEXT BUFFER. 

THIS KEY PRINTS THE BUFFER. 
*10 IS CONTROL -P. THUS, 
PRESS CONTROL-P TO PRINT 
THE BUFFER. 

THIS KEY RUBS OUT THE 
CURRENT CHARACTER. THUS, PRESS 
THE DELETE KEY TO DELETE THE 
CURRENT CHARACTER. 

TWO QUIT KEYS IN A ROW 
CAUSE THE EDITOR TO RETURN 
TO ITS CALLER. 



OTHER VARIABLES: 

THIS BYTE USED BY EDITIT. 



5 TEXT EDITOR: UPDATE SUBROUTINE 



EDITIT JSR GETKEY 

5 

CMP QUITKY 
BNE DO. KEY 



GET A KEYSTROKE FROM USER 

USER. 

IS IT THE "QUIT" KEY? 

IF NOT, DO WHAT THE KEY 
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3160 






5 






3170 






5 






3180 


3ED0 


48 






PHA 


3190 


3ED1 


20E032 






JSR GETKEY 


3200 






; 






3210 


3ED4 


CDC63E 






CMP QUITKY 


3220 


3ED7 


D004 






BNE NOTEND 


3230 






9 






3240 






9 






3250 






5 






3260 


3ED9 


68 


ENDEDT 


PLA 


3270 






5 






3280 


3EDA 


68 






PLA 


3290 


3EDB 


68 






PLA 


3300 


3EDC 


60 






RTS 


3310 






5 






3320 


3EDD 


BDC73E 


NOTEND 


STA TEMPCH 


3330 






5 






3340 


3EE0 


68 






PLA 


3350 


3EE1 


20E73E 






JSR DO. KEY 


3360 


3EE4 


ADC73E 






LDA TEMPCH 


3370 






; 






3380 






9 






3390 






5 






3400 






5 






3410 






9 






3420 


3EE7 


CDC13E 


DO- 


KEY 


CMP MODEKY 


3430 


3EEA 


D00B 






BNE IFNEXT 


3440 


3EEC 


CE013E 






DEC EDMODE 


3450 


3EEF 


1005 






BPL DO. END 


3460 


3EF1 


A901 






LDA #1 


3470 


3EF3 


8D013E 






STA EDMODE 


3480 


3EF6 


60 


DO. 


END 


RTS 


3490 






5 






3500 






5 






3510 


3EF7 


CDC23E 


IFNEXT 


CMP NEXTKY 


3520 


3EFA 


D004 






BNE IFPREV 


3530 






9 






3540 


3EFC 


20793F 






JSR NEXTCH 


3550 






5 






3560 


3EFF 


60 






RTS 


3570 






5 






3580 






5 






3590 


3F00 


CDC33E 


IFPREV CMP PREVKY 


3600 


3F03 


D004 






BNE IF. RUB 


3610 


3F05 


20873F 






JSR PREVSL 


3620 


3F08 


60 






RTS 


3630 






9 






3640 






; 






3650 


3F09 


CDC53E 


IF 


.RUB CMP RUBKEY 


3660 


3F0C 


D004 






BNE IF.PRT 


3670 


3F0E 


20DD3F 






JSR DELETE 


3680 


3F11 


60 






RTS 


3690 






5 







REQUIRES. 

IF IT IS THE "QUIT" KEY, SAVE 

IT AND GET A NEW KEY FROM 

USER. 

IS THIS A "QUIT" KEY, TOO? 

IF NOT, THEN THIS IS NOT THE 

END OF THE EDIT SESSION. 

END THE EDT SESSION? 

POP FIRST "QUIT" KEY FROM 

STACK. 

POP RETURN ADDRESS TO 

EDITOR'S TOP LEVEL. 

RETURN TO EDITOR'S CALLER. 

SAVE TH KEY THAT FOLLOWED 

tHE "QUIT" KEY. 

POP FIRST "QUIT" KEY FROM STACK. 

DO WHAT IT REQUIRES. 

RECOVER THE KEY THAT FOLLOWED 

THE "QUIT" KEY. 

"DO. KEY" DOES WHAT THE KEY 
IN THE ACCUMULATOR REQUIRES: 

IS IT THE "CHANGE MODE" KEY? 
IF NOT, PERFORM NEXT TEST. 
IF SO, CHANGE THE EDITOR'S 
MODE. 



RETURN TO CALLER. 



IS IT THE "NEXT" KEY? 

IF NOT, PERFORM NEXT TEST. 

IF SO, ADVANCE TO NEXT 
CHARACTER. . . 
...AND RETURN. 



IS IT THE "PREVI0US" KEY? 
IF NOT, PERFORM NEXT TEST. 
IF SO, BACK UP TO PREVIOUS 
CHARACTER AND RETURN. 



IS IT THE "RUBOUT" KEY? 
IF NOT, PERFORM NEXT TEST. 
IF SO, DELETE CURRENT 
CHARACTER AND RETURN. 
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370® 






3710 


3F12 


CDC43E 


3720 


3F15 


0004 


3730 


3F17 


20C53F 


3740 


3F1A 


60 


3750 






3760 






377'J 






3780 


3F1B 


CDC03E 


3790 


3F1E 


D004 


3800 






3810 


3F20 


20B43F 


3870 


3F23 


60 


3830 






3840 






3850 






3860 






3870 






3880 






3890 






3900 






3910 






3920 


3F24 


AE013E 


3930 


3F27 


F004 


3940 






3950 


3F29 


20343F 


3960 


3F2C 


60 


3970 






3980 


3F2D 


202D33 


3990 






4000 


3F30 


207D37 


4010 


3F33 


60 


4020 






4030 






4040 






4050 






4060 






4070 


3F34 


48 


4080 






4090 






4100 


3F35 


201235 


4110 


3F38 


AD5335 


4120 


3F3B 


48 


4130 


3F3C 


AD5235 


4140 


3F3F 


48 


4150 






4160 






4170 


3F40 


AD5535 


4180 


3F43 


48 


4190 


3F44 


AD5435 


4200 


3F47 


48 


4210 






4220 






4230 


3F48 


206136 



IF.PRT CMP PRTKEY 
BNE IFFLSr 
JSR PRTBUF 
RTS 



IFFLSH CMP FLSHKY 
BNE CHARKY 



JSR FLUSH 
RTS 



IS IT THE "PRINT" KEY? 
IF NOT, PERFORM NEXT TEST. 
IF SO, PRINT THE BUFFER... 
- . .AND RETURN. 



IS IT THE "FLUSH" KEY? 

IF NOT, IT MUST BE A CHARACTER 

KEY. 

IF SO, FLUSH THE BUFFER. 

AND RETURN. 



OK. 
MUST BE 
CURRENT 



CHARKY LDX 
BEQ 



IT'S NOT AN EDITOR FUNCTION KEY, SO IT 
A CHARACTER KEY. DEPENDING ON THE 
MODE, WE'LL EITHER INSERT OR OVERSTRIKE 
THE CURRENT CHARACTER. 



JSR 
RTS 



EDMODE 
STRIKE 

INSERT 



STRIKE JSR PUT.SL 
j 

JSR NEXTSL 
RTS 



INSERT 
5 


PHA 




5 


JSR 


PUSHSL 




LDA 


SA+1 




PHA 






LDA 


SA 


5 


PHA 




|! 


LDA 
PHA 


EA+1 




LDA 


EA 


<i 


PHA 




5 


JSR 


SAHERE 



ARE WE IN OVERSTRIKE MODE? 

IF SO, OVERSTRIKE THE CURRENT 

CHARACTER. 

IF NOT, INSERT THE CHARACTER. 

RETURN. 

REPLACE CURRENT CHARACTER 
WITH NEW CHARACTER. 
SELECT NEXT CHARACTER. 
RETURN. 



SAVE THE CHARACTER TO BE 
INSERTED, WHILE WE MAKE ROOM 
FOR IT IN THE BUFFER... 
SAVE THE CURRENT ADDRESS. 
SAVE THE BUFFER'S ADDRESS. 



SAVE BUFFER'S END ADDRESS. 



SET SA EQUAL TO SELECT, SO 
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4240 










4250 










4260 










4270 










4280 










4290 


3F4B 


207D37 




JSR NEXTSL 


4300 






5 




4310 


3F4E 


3011 




BMI END INS 


4320 






5 




4330 






5 




4340 






5 




4350 






5 




4360 


3F50 


20E238 




JSR DAHERE 


4370 










4380 










4390 










4400 










4410 










4420 


3F53 


AD5435 




LDA EA 


4430 


3F56 


D003 




BNE DEC.EA 


4440 


3F58 


CE5535 




DEC EA+1 


4450 


3F5B 




DEC.EA 




4460 


3F5B 


CE5435 




DEC EA 


4470 










4480 










4490 










4500 


3F5E 


20D637 


OPENUP 


JSR MOV.EA 


4510 










4520 










4530 










4540 










4550 










4560 


3F61 


68 


END INS 


PLA 


4570 


3F62 


8D5435 




STA EA 


4580 


3F65 


68 




PLA 


4590 


3F66 


8D5535 




STA EA+1 


4600 






5 




4610 






; 




4620 


3F69 


68 




PLA 


4630 


3F6A 


8D5235 




STA SA 


4640 


3F6D 


68 




PLA 


4650 


3F6E 


8D5335 




STA SA+1 


4660 






5 




4670 






5 




4680 


3F71 


202B35 




JSR POP-SL 


4690 










4700 










4710 










4720 


3F74 


68 




PLA 


4730 






9 




4740 






5 




4750 


3F75 


202D3F 




JSR STRIKE 


4760 


3F78 


60 




RTS 


4770 


3F79 


209532 


NEXTCH JSR GET.SL 



CURRENT LOCATION WILL BE 
START OF THE BLOCK WE'LL 
MOVE. 



ADVANCE TO NEXT CHARACTER 
POSITION IN THE BUFFER. 
IF WE'RE AT THE END OF THE 
BUFFER, WE'LL OVERSTRIKE 
INSTEAD OF INSERTING. 



SET DEST EQUAL TO SELECT. 
DESTINATION OF BLOCK MOVE 
WILL BE ONE BYTE ABOVE 
BLOCK'S INITIAL LOCATION. 



DECREMENT END ADDRESS 



OPEN UP ONE BYTE OF SPACE 
AT CURRENT CHARACTER'S 
LOCATION, BY MOVING TO DEST 
THE BLOCK SPECIFIED BY SA, EA. 



RESTORE EA SO IT POINTS 
TO END OF BUFFER. 



RESTORE SA SO IT POINTS TO 
START OF BUFFER. 



RESTORE SELECT SO IT POINTS 
TO CURRENT CHARACTER POSITION. 



RESTORE NEW CHARACTER TO 
ACCUMULATOR. WE'VE CREATED 
A ONE-BYTE SPACE FOR IT, SO 
WE NEED ONLY OVERSTRIKE IT 
AND RETURN. 
GET CURRENT CHARACTER. 
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4780 


3F7C 


C9FF 


4790 


3F7E 


F004 


4800 






4810 






4820 


3F80 


207D37 


4830 






4840 


3F83 


60 


4850 






4860 






4870 






4880 


3F84 


A9FF 


4890 


3F86 


60 


4900 






4910 






4920 






4930 






4940 






4950 


3F87 


38 


4960 


3F88 


AD5335 


4970 


3F8B 


CD0632 


4980 


3F8E 


900C 


4990 


3F90 


D010 


5000 






5010 






5020 






5030 


3F92 


AD5235 


5040 


3F95 


CD0532 


5050 


3F98 


F017 


5060 






5070 


3F9A 


B006 


5080 






5090 


3F9C 


201 A33 


5100 






5110 






5120 


3F9F 


A900 


5130 


3FA1 


60 


5140 






5150 






5160 


3FA2 


AD5235 


5170 


3FA5 


8D0532 


5180 


3FA8 


AD5335 


5190 


3FAB 


8D0632 


5200 


3FAE 


A900 


5210 


3FB0 


60 


5220 






5230 






5240 


3FB1 


A9FF 


5250 


3FB3 


60 


5260 






5270 






5280 






5290 






5300 


3FB4 


209A37 


5310 


3FB7 


A9FF 



CMP #ETX 
BEQ AN.ETX 



JSR NEXTSL 
RTS 



AN.ETX LDA #*FF 
RTS 



PREVSL SEC 

LDA SA+1 
CMP SELECT+1 
BCC SL.OK 
BNE NOT. OK 



LDA 
CMP 
BEQ 

5 

BCS 

5 
SL.OK JSR 



LDA 
RTS 



SA 

SELECT 
NO. DEC 

NOT. OK 

DEC.SL 

#0 



NOT. OK LDA 
STA 
LDA 
STA 
LDA 
RTS 



NO. DEC LDA 
RTS 



FLUSH 
FLOOP 



JSR 
LDA 



SA 

SELECT 

SA+1 

SELECT+1 

#0 



#*FF 



GOTOSA 
#ETX 



IS IT END OF TEXT CHARACTERS 
IF SO, RETURN TO CALLER, 
BEARING A NEGATIVE RETURN CODE. 

IF NOT, SELECT NEXT BYTE IN 

BUFFER. 

RETURN PLUS IF WE INCREMENTED 

SELECT; MINUS IF SELECT 

ALREADY EQUALLED EA. 

SINCE WE'RE ON AN ETX , WE 
WILL RETURN MINUS, WITHOUT 
INCREMENTING SELECT. 



PREPARE TO COMPARE. 

IS SELECT IN A HIGHER PAGE 

THAN START OF BUFFER? 

IF SO, SELECT MAY BE DECREMENTED 

IF SELECT IS IN A LOWER 

PAGE THAN SA, IT'S NOT OK. 

SELECT IS IN SAME PAGE AS SA. 
IS SELECT >SA? 

IF SELECT EQUALS SA, DON'T 

DECREMENT SELECT. 

IF SELECT<SA, DON'T DECREMENT 

SELECT. 

SELECT >SA, SO WE MAY 

DECREMENT SELECT AND IT 

WILL REMAIN IN THE BUFFER. 

SET A POSITIVE RETURN CODE... 

...AND RETURN. 



SINCE SELECT<SA, IT IS NOT 
EVEN IN THE EDIT BUFFER. SO 
MAKE SELECT LEGAL, BY SETTING 
IT EQUAL TO SA. 

SET A POSITIVE RETURN CODE. . . 
. . -AND RETURN. 



SELECT EQUALS SA, SO CHANGE 
NOTHING. RETURN WITH 
NEGATIVE RTURN CODE. 



SET SELECT EQUAL TO SA. 
PUT AN ETX CHARACTER 
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5320 


3FB9 


202D33 


5330 


3FBC 


207D37 


5340 






5350 


3FBF 


10F6 


5360 






5370 






5380 






5390 


3FC1 


209A37 


5400 






5410 






5420 


3FC4 


60 


5430 


3FC5 


209A37 


5440 


3FC8 


201434 


5450 


3FCB 


209532 


5460 


3FCE 


C9FF 


5470 


3FD0 


F008 


5480 


3FD2 


204034 


5490 


3FD5 


207D37 


5500 


3FD8 


10F1 


5510 






5520 






5530 


3FDA 


4C1A34 


5540 






5550 






5560 






5570 






5580 






5590 


3FDD 


201235 


5600 


3FE0 


AD5335 


5610 


3FE3 


48 


5620 


3FE4 


AD5235 


5630 


3FE7 


48 


5640 






5650 


3FE8 


20E238 


5660 






5670 






5680 






5690 






5700 


3FEB 


207D37 


5710 






5720 


3FEE 


206136 


5730 






5740 






5750 






5760 






5770 






5780 


3FF 1 


20D637 


5790 






5800 






5810 






5820 


3FF4 


68 


5830 


3FF5 


8D5235 


5840 


3FF8 


68 


585® 


3FF9 


SD5335 



JSR PUT.SL 
JSR NEXTSL 

BPL FLOQP 



JSR GOTOSA 



RTS 

PRTBUF JSR GOTOSA 
JSR PR -ON 

PRLOOP JSR GET.SL 
CMP #ETX 
BEQ ENDPRT 
JSR PR.CHR 
JSR NEXTSL 
BPL PRLOOP 



ENDPRT JMP PR. OFF 



DELETE JSR PUSHSL 
LDA SA+1 
PHA 

LDA SA 
PHA 

JSR DAHERE 



JSR NEXTSL 
JSR SAHERE 



JSR MOV.EA 



PLA 

STA SA 
PLA 
STA SA+1 



INTO THE BUFFER. 

ADVANCE TO NEXT POSITION IN 

BUFFER. 

IF WE HAVEN'T REACHED END 

OF BUFFER, PUT AN ETX INTO 

THIS POSITION, TOO. 

HAVING FILLED BUFFER WITH 

ETC CHARACTERS, RESET SELECT 

TO BEGINNING OF BUFFER. 

RETURN. 

SET SELECT TO START OF BUFFER 

SELECT PRINTER FOR OUTPUT. 

GET CURRENT CHARACTER. 

IS IT ETX? 

IF SO, WE'RE DONE. 

IF NOT, PRINT IT. 

SELECT NEXT CHARACTER 

IF WE HAVEN'T REACHED THE 

END OF THE BUFFER, HANDLE 

THE CURRENT CHARACTER AS BEFORE. 

HAVING REACHED END OF MESSAGE 

OP END OF BUFFER, RETURN TO 

CALLER OF ED1TIT, DESELECTING 

THE PRINTER AS WE DO SO. 



SAVE CURRENT ADDRESS. 

SAVE BUFFER'S START ADDRESS. 



SET DEST EQUAL TO SELECT, 

BECAUSE WE'LL MOVE A BLOCK OF 

TEXT DOWN TO HERE, TO CLOSE UP 

THE BUFFER AT THE CURRENT 

CHARACTER . 

ADVANCE BY ONE BYTE THROUGH 

BUFFER, IF POSSIBLE. 

SET SA EQUAL TO SELECT, BECAUSE 

THIS IS THE START OF THE BLOCK 

WE'LL MOVE DOWN. 

NOTE: THE ENDING ADDRESS OF 

THE BLOCK IS THE END ADDRESS 

OF THE TEXT BUFFER. 

MOVE BLOCK SPECIFIED BY 

SA, EA TO DEST. 



RESTORE INITIAL SA (WHICH 
IS THE START ADDRESS OF THE 
TEXT BUFFER, NOT OF THE BLOCK 
WE JUST MOVED. ) 



337 



5860 
5870 



3FFC 
3FFF 



202B35 
60 



JSR POP.SL RESTORE CURRENT ADDRFSS. 
RTS RETURN TO CALLER. 



CROSS REFERENCE LISTING: 



AN.ETX 

DEC.EA 

DO. END 

EDKEYS 

END INS 

FLSHKY 

GOTOSA 

IFFLSH 

INSERT 

MOVERS 

NO. DEC 

POP.SL 

PREVKY 

PRTBUF 

QUITKY 

SELECT 

TEX 



3F84 

3F5B 

3EF6 

3EC0 

3F61 

3EC0 

379A 

3F1B 

3F34 

37B0 

3FB1 

352B 

3EC3 

3FCS 

3EC6 

3205 

007F 



CHARKY 

DEC.SL 

DO. KEY 

EDMODE 

ENDPRT 

FLUSH 

HEX.PG 

IFNEXT 

LF 

NEXTCH 

NOT. OK 

PR.CHR 

PREVSL 

PRTKEY 

RUBKEY 

SL.QK 

VISMON 



3F24 
331A 
3EE7 
3E01 
3FDA 
3FB4 
3500 
3EF7 
000A 
3F79 
3FA2 
3440 
3F87 
3EC4 
3EC5 
3F9C 
3207 



CR 

DELETE 

EA 

EDPAGE 

ETX 

GET.SL 

IF-PRT 

IFPREV 

MODEKY 

NEXTKY 

NOTEND 

PR. OFF 

PRLOOP 

PUSHSL 

SA 

STRIKE 

VMPAGE 



000D 
3FDD 
3554 
3E00 
00FF 
3295 
3F12 
3F00 
3EC1 
3EC2 
3EDD 
341A 
3FCB 
3512 
3552 
3F2D 
3200 



DAHERE 

DEST 

EDITIT 

ENDEDT 

FLOOP 

GETKEY 

IF. RUB 

INC.SL 

MOV.EA 

NEXTSL 

OPENUP 

PR. ON 

PRPAGE 

PUT.SL 

SAHERE 

TEMPCH 



38E2 

37B2 

3EC8 

3ED9 

3FB7 

32E0 

3F09 

330D 

37D6 

377D 

3F5E 

3414 

3400 

332D 

3661 

3EC7 
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Appendix C 1 2: 

Extending the Visible Monitor 
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1000 
1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 



APPENDIX CI 2: ASSEMBLER LISTING OF 

VISIBLE MONITOR EXTENSIONS 



SEE CHAPTER 12 OF TOP-DOWN ASSEMBLY LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 



BY KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



EXTERNAL ADDRESSES 



PRPAGE = *3400 



STARTING PAGE OF PRINT 
UTILITIES- 



PR I NTR = PRPAGE 
USER = PRPAGE+2 
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1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1630 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 



HEX.PG = $3500 



ADDRESS OF PAGE IN WHICH 
HEXDUMP CODE STARTS. 



TVDUMP = HEX.PG+*57 
PRDUMP = HEX.PG+*A8 



DSPAGE = $3900 



STARTING PAGE OF DISASSEMBLER 

TV.DIS = DSPAGE+9 
PR.DIS = DSPAGE+*26 

MOVERS = *37B0 

START OF MOVE OBJECT CODE. 

MOVER = MOVERS+4 



EDPAGE = *3E00 



ADDRESS OF PAGE IN WHICH 
EDITOR CODE BEGINS. 



EDITOR = EDPAGE+2 



0000 



30B0 



* = $30B0 

EXTENSIONS TO THE VISIBLE MONITOR 



30B0 
30B2 
30B4 
30B7 
30B9 
30BC 



C950 

D009 

AD0034 

49FF 

8D0034 

60 



EXTEND CMP #'P 
BNE IF.U 
LDA PRINTR 
EOR #*FF 
STA PRINTR 
RTS 



30BD C955 



IF.U 



CMP #'U' 



IS IT THE P' KEY? 
IF NOT, PERFORM NEXT TEST. 
IF SO, TOGGLE THE PRINTER 
FLAG. . . 

AND RETURN TO CALLER. 

IS IT THE U' KEY? 
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2080 


30BF 


D009 


2090 


30C1 


AD0234 


2100 


30C4 


49FF 


2110 


30C6 


8D0234 


2120 


30C9 


60 


2130 






2140 


30CA 


C948 


2150 


30CC 


D00D 


2160 


30CE 


AD0034 


2170 


30D1 


D004 


2180 


30D3 


205735 


2190 


30D6 


60 


2200 






2210 


30D7 


20A835 


2220 


30DA 


60 


2230 






2240 


30DB 


C94D 


2250 


30DD 


D004 


2260 


30DF 


20B437 


2270 


30E2 


60 


2280 






2290 


3F£3 


C93F 


2300 


30E5 


D00D 


2310 


30E 7 


AD0034 


2320 


30EA 


D004 


2330 


30EC 


200939 


2340 


30EF 


60 


2350 






2360 


30F0 


202639 


2370 


30F3 


60 


2380 






2390 


30F4 


C954 


2400 


30F6 


D004 


2410 


30F8 


20023E 


2420 


30FB 


60 


2430 






2440 


30FC 


60 


2450 






2460 






2470 







BNE IF.H 
LDA USER 
EOR #*FF 
STA USER 
RTS 

IF.H CMP #'H' 
BNE IF.M 
LDA PRINTR 
BNE NEXT. 1 
JSR TVDUMP 
RTS 

NEXT.l JSR PRDUMP 
RTS 

IF.M CMP #'M' 

BNE IF.DIS 
JSR NOVER 
RTS 

IF.DIS CMP #'?' 
BNE 1F.T 
LDA PRINTR 
BNE NEXT. 2 
JSR TV.DIS 
RTS 

NEXT .2 JSR PR.DIS 
RTS 



IF. T 



EXJT 



CMP #'T' 
BNE EXIT 
JSR EDITOR 
RTS 

RTS 



IF NOT, PERFORM NEXT TEST. 
IF SO, TOGGLE THE USER- 
PROVIDED OUTPUT FLAG... 

AND RETURN. 

IS IT THE 'H' KEY? 
IF NOT, PERFORM NEXT TEST. 
IS THE PRINTER SELECTED? 
IF SO, PRINT A HEXDUMP. 
IF NOT, DUMP TO SCREEN... 
AND RETURN. 

PRINT A HEXDUMP.. . 
. . .AND RETURN. 

IS IT TH1 'M' KEY? 
IF NOT, PRFORM NEXT TEST. 
IF SO, LET USER SPECIFY AND 
AND MOVE A BLOCK OF MEMORY. 

IS IT THE '?' KEY? 
IF NOT, PERFORM NEXT TEST. 
IS THE PRINTER SELECTED? 
IF SO, PRINT A DISASSEMBLY. 
IF NOT, DISASSEMBLE TO THE 
SCREEN AND RETURN. 

PRINT A DISASSEMBLY... 
AND RETURN. 

IS IT THE T KEY? 

IF NOT, RETURN. 

IF SO, CALL THE SIMPLE 

TEXT EDITOR AND RETURN. 

EXTEND THE VISIBLE MONITOR 
EVEN FURTHER BY REPLACING 
THIS RTS' WITH A JMP* TO 
MORE TEST-AND-BRANCH CODE. 







CROSS REFERENCE 


LISTING: 








DSPAGE 


3900 


EDITOR 3E02 


EDPAGE 


3E00 


EXIT 


30FC 


EX i END 


30B0 


HEX.PG 3500 


IF.DTS 


30E3 


IF.H 


30CA 


IF.M 


30DB 


IF.T 30F4 


IF.U 


30BD 


MOVER 


37B4 


MOVERS 


37B0 


NEXT. 1 30D7 


NEXT. 2 


30F0 


PR.DIS 


3926 


PRDUMP 


35A8 


PRINTR 3400 


PRPAGE 


3400 


TV.DIS 


3909 


TVDUMP 


3557 


USER 3402 
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Appendix CI 3: 

System Data Block for the 
Commodore VIC-20 
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1000 
1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 



APPENDIX CI 3: ASSEMBLER LISTING OF 
SYSTEM DATA BLOCK 
FOR THE COMMODORE VIC-20 



SEE APPENDIX Bl OF TOP-DOWN ASSEMBLY LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 



BY KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



N0TE > T HE VIC-20 MUST HAVE AT LEAST 

8K OF EXPANSION RAM, BEGINNING 
AT $2000. (INSTALL COMMODORE 
VIC-1110 9K MEMORY EXPANDER OR 
VIC-1111 16K MEMORY EXPANDER.) 

THE VISIBLE MONITOR WILL NOT 
RUN IN AN UNEXPANDED VIC, OR A 
VIC WITH ONLY 3K OF ADDITIONAL 
RAM. 



TV.PTR - *FB POINTER TO CURRENT SCREEN 
LOCATION. 

VISMON * *3207 TOP LEVEL OF THE VISIBLE 
MONITOR- 



HEX.PG = $3500 ADDRESS OF PAGE IN WHICH 
HEXDUMP CODE STARTS - 

MASK = HEX.PS+$51 
SA = HEX.PB+*52 
EA = SA+2 
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1540 

1550 

1-560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1 720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 



VIC KERNAL ROUTINES: 



0000 = 3000 



3000 0010 



CHKOUT = *FFC9 
CHROU7 ^ *FFD2 
CLOSE = $FFC3 
OPEN = *FFC0 
SAVE = *FFD8 
SETLFS = *FFBA 
SETNAM = *FFBD 



; SCREEN PARAMETERS 

5 

; ******************************************** 



$3000 



HOME 



•WORD $1000 



3002 16 



3003 15 



3004 18 



3005 
3006 



11 
20 



3007 IE 



ROW INC -BYTE 22 

5 

TVCOLS .BYTE 21 

5 

TVROWS .BYTE 24 

HI PAGE .BYTE *11 

BLANK .BYTE $20 

5 

ARROW -BYTE *1E 



THIS IS THE ADDRESS OF THE 
CHARACTER IN THE UPPER LEFT 
CORNER OF THE SCREEN, IN A 
VIC WITH AT LEAST 8K OF 
EXPANSION MEMORY. 
ADDRESS DIFFERENCE FROM ONE 
ROW TO THE NEXT. 
NUMBER OF COLUMNS ON SCREEN, 
COUNTING FROM ZERO. 
NUMBER OF ROWS ON SCREEN, 
COUNTING FROM ZERO. 
HIGHEST PAGE IN SCREEN MEMORY. 
VIC DISPLAY CODE FOR A BLANK. 
(IN NORMAL VIDEO MODE.) 
VIC DISPLAY CODE FOR UP-ARROW. 
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2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 



INPUT/OUTPUT VECTORS 



3008 3530 



ROMKEY .WORD VICKEY 



300A 3C30 



300C 4130 



300E 1030 



ROMTV1 -WORD VICTVT 



ROMPRT .WORD V1CPRT 



USROUT .WORD DUMMY 



3010 60 



DUMMY RTS 



POINTER TO ROUTINE THAT GETS 
AN ASCII CHARACTER FROM THE 
KEYBOARD. (NOTE: VICKEY 
CALLS A ROM SUBROUTINE, BUT 
VICKEY IS NOT A VIC ROM 
SUBROUTINE. ) 



POINTER TO ROUTINE TO PRINT 

AN ASCII CHARACTER ON THE SCREEN 



POINTER TO ROUTINE TO SEND AN 
ASCII CHARACTER TO THE PRINTER 



POINTER TO USER-WRITTEN OUTPUT 
ROUTINE. <SET HERE TO DUMMY 
UNTIL YOU SET IT TO POINT 
TO YOUR OWN CHARACTER-OUTPUT 
ROUTINE. ) 



THIS IS A DUMMY SUBROUTINE. 
IT DOES NOTHING BUT RETURN. 



CONVERT ASCII CHARACTER TO DISPLAY CODE 



3011 



FIXCHR 



A CHARACTER IS IN A. WE 
MUST CONVERT IT TO PROPER 
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2620 






2630 






2640 






2650 






2660 






2670 






2680 






2690 






2700 






2710 


3011 


48 


2720 






2730 


3012 


A5FC 


2740 


3014 


48 


2750 


3015 


18 


2760 


3016 


6984 


2770 


3018 


85FC 


2780 


301A 


A000 


2790 


301C 


AD86( 


2800 






2810 






2820 






2B30 


301F 


91FB 


2840 






2850 


3021 


68 


2860 


3022 


85FC 


2870 






2880 


3024 


68 


2890 






2900 






2910 


3025 


38 


2920 


3026 


C940 


2930 






2940 






2950 


3028 


900A 


2960 






2970 


302A 


C960 


2980 






2990 


302C 


9003 


3000 






3010 






3020 






3030 






3040 


302E 


E920 


3050 






3060 






3070 


3030 


60 


3080 






3090 






3100 


3031 


38 


3110 


3032 


E940 


3120 






3130 


3034 


60 


3140 






3150 







VIC DISPLAY CODE. 

BUT FIRST, PUT A COLOR CODE 
IN APPROPRIATE BYTE OF 
COLOR MEMORY- (OTHERWISE, 
THAT BYTE IN COLOR MEMORY 
MIGHT BE ZERO, RENDERING 
THE CHARACTER INVISIBLE. ) 

PHA SAVE THE CHARACTER TO BE 

DISPLAYED. 

LDA TV.PTR+1 SAVE HIGH BYTE... 

PHA ...OF TV.PTR. 

CLC MAKE TV.PTR POINT 

ADC #$84 TO APPROPRIATE BYTE 

STA TV.PTR+1 OF COLOR MEMORY. 
LDY #0 

LDA $286 GET CURRENT COLOR CODE. 

STORE IT IN APPROPRIATE 
BYTE OF COLOR MEMORY: 



STA (TV.PTR),Y 

PLA 

STA TV.PTR+1 

PLA 



SEC 

CMP #$40 



BCC FIXEND 
CMP #$60 
BCC SUB. 40 

SBC #$20 
RTS 



SUB. 40 SEC 

SBC #$40 
j 
FIXEND RTS 



RESTORE HIGH BYTE OF TV.PTR 
TO ITS ORIGINAL VALUE. 

RETRIEVE CHARACTER TO BE 
DISPLAYED. 

PREPARE TO COMPARE. 

IS IT LESS THAN $40? (IS 

IT A NUMBER OR PUNCTUATION 

MARK?) 

IF SO, NO CONVERSION NEEDED. 

IS IT IN THE RANGE $40...$5F? 

IF SO, SUBTRACT $40 TO 
CONVERT FROM ASCII TO VIC. 

IT'S > $5F. 

SUBTRACT $20 TO CONVERT 
LOWER CASE ASCII TO VIC CODE. 

AND RETURN. 



PREPARE TO SUBTRACT. 
SUBTRACT $40 TO CONVERT ASCII 
UPPER CASE CHAR TO VIC CODE. 
RETURN, WITH A HOLDING 
VIC DISPLAY CODE FOR ASCII 
ORIGINALLY IN A. 



350 



3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 



♦♦♦♦■a*************************************** 
GET AN ASCII CHARACTER FROM THE KEYBOARD 



3035 20E4FF 

3038 AA 

3039 F0FA 



303B 60 



VICKEY J BR SFFE4 
TAX 
BEQ VICKEY 



RTS 



GET A KEYBOARD CHARACTER. 
IS IT ZERO? 
ZERO MEANS NO KEY, SO 
SCAN AGAIN. 

RETURN WITH ASCII CHARACTER 
FROM THE KEYBOARD. 



PRINT AN ASCII CHARACTER ON THE SCREEN 



303C A201 



303E 4C4330 



VICTVT LDX #1 



JMP OUTCHR 



WE'LL DEFINE LOGICAL FILE #1 
AS AN OUTPUT CHANNEL. 

OUTPUT THE CHARACTER IN A ON 
LOGICAL FILE "X". 



PRINT AN ASCII CHARACTER ON A PRINTER 



THIS PROCEDURE ASSUMES THAT 
THE USER HAS USED BASIC TO 
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3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 



3041 A202 



3043 



3043 48 



3044 20C9FF 



3047 68 



3048 20D2FF 



304B 60 



CPRT LDX #2 



QUTCHR 



PHA 

JSR CHKOUT 

PLA 

JSR CHROUT 

RTS 



OPEN A DEVICE OR FILE AS 
LOGICAL FILE #2, BEFORE 
CALLING THE VISIBLE MONITOR. 
LOGICAL FILE #2 MIGHT BE A 
PRINTER, OR THE RS-232 PORT, 
OR EVEN A DISK OR CASSETTE 
FILE. THE IMPORTANT THING IS 
THAT IT'S OPEN, SO WE MAY 
OUTPUT TEXT TO IT. 



WELL DEFINE LOGICAL FILE #2 
AS AN OUTPUT CHANNEL. 

NOW OUTPUT CHARACTER IN A ON 
LOGICAL FILE "X": 



SAVE CHARACTER TO BE OUTPUT. 

SET LOGICAL FILE "X" FOR OUTPUT. 

RETRIEVE CHARACTER TO BE SENT. 

OUTPUT CHARACTER IN A ON 
THE CURRENTLY-OPEN CHANNEL. 

AND RETURN. 



SAVE A MACHINE LANGUAGE PROGRAM 
ON TAPE OR DISK 



THE FOLLOWING VARIABLES 
MUST BE SET, EITHER BY THE 
VISIBLE MONITOR OR BY A 
BASIC PROGRAM, BEFORE MLSAVE 
MAY BE CALLED. 



304C 01 



DEVICE .BYTE 1 



DEVICE TO BE USED FOR SAVE. 
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4240 






4250 






4260 






4270 






4280 


304D 


00 


4290 






4300 






4310 


304E 


00000000 


4320 


3052 


00000000 


4330 


3056 


00000000 


4340 


305A 


00000000 


4350 


305E 


00000000 


4360 






4370 






4380 






4390 






4400 






4410 






4420 






4430 






4440 






4450 






4460 






4470 






4480 






4490 


3062 


A903 


4500 


3064 


AE4C30 


4510 


3067 


A8 


4520 


3068 


20BAFF 


4530 






4540 






4550 






4560 


306B 


AD4D30 


4570 






4580 


306E 


A24E 


4590 


3070 


A030 


4600 






4610 






4620 


3072 


20BDFF 


4630 






4640 






4650 






4660 


3075 


AD5235 


4670 


3078 


85FD 


4680 


307A 


AD5335 


4690 


307D 


85FE 


4700 






4710 


307F 


A9FD 


4720 






4730 


3081 


AE5435 


4740 


3084 


AC5535 


4750 






4760 






4770 







LENGTH .BYTE 



NAME -BYTE 0,0,0,0 
.BYTE 0,0,0,0 
.BYTE 0,0,0,0 
.BYTE 0,0,0,0 
.BYTE 0,0,0,0 



MLSAVE LDA #3 

LDX DEVICE 

TAY 

JSR SETLFS 



LDA LENGTH 



1 SPECIFIES DATASETTE. 

8 SPECIFIES DISK DRIVE. 

THIS IS DECIMAL ADDRESS 12364. 

LEN6TH OF FILENAME. 

THIS IS DECIMAL ADDRESS 12365. 

ROOM HERE (AT 12366) FOR A 
FILENAME OF UP TO 20 CHARACTERS. 



NOTE: THE POINTERS SA AND EA 
MUST ALSO BE SET, TO THE 
STARTING AND ENDING ADDRESSES 
(RESPECTIVELY) OF THE PROGRAM 
TO BE SAVED. THEY MAY BE SET 
MOST CONVENIENTLY BY SIMPLY 
CALLING THE SUBROUTINE "SET ADS" 
AT *35E3 (13795 DECIMAL). 



LOGICAL FILE NUMBER. 

DEVICE NUMBER. 

SECONDARY ADDRESS. 

CALL KERNAL ROUTINE "SETLFS". 

NOW THE VIC KNOWS WHAT DEVICE 

TO USE. 

GET LENGTH OF FILENAME. 



LDX #LOW(NAME) 
LDY ttHIGH(NAME) 



JSR SETNAM 



LDA SA 
STA *FD 
LDA SA+1 
STA *FE 

LDA #*FD 

LDX EA 
LDY EA+1 



NOW (X,Y) POINTS TO THE FILE 

NAME. 

CALL KERNAL ROUTINE "SETNAM". 

NOW THE VIC KNOWS THE NAME OF 

THE FILE YOU WISH TO CREATE. 



NOW PTR AT *FD POINTS TO START 
OF THE ML PROGRAM. 
NOW A HOLDS ZERO PAGE OFFSET 
FOR THAT POINTER. 

NOW (X,Y) POINTS TO THE END OF 
THE ML PROGRAM. 

BUT THE KERNAL ROUTINE "SAVE" 
REQUIRES THAT (X,Y) POINT ONE 
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4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 



3087 E8 

3088 D001 
308A C8 



308B 20D8FF 



308E 60 



INX 

BNE XY.SET 

I NY 



XY.SET JSR SAVE 



RTS 



BYTE BEYOND THE END OF THE 
ML PROGRAM. SO INCREMENT 
(X,Y): 



NOW (X,Y> IS SET. 

CALL KERNAL ROUTINE "SAVE". 
THIS ACTUALLY OPENS A FILE AND 
STORES THE SPECIFIED PORTION OF 
MEMORY ON THE SPECIFIED DEVICE. 



RETURN TO CALLER (PRESUMABLY 
BASIC OR THE VISIBLE MONITOR. ) 



; VISIBLE MONITOR: ENTRY FROM BASIC 



308F A900 

3091 48 

3092 28 



3093 20BDFF 



ENTRY 



3096 
3098 
309A 
309C 



A901 
A200 
A0FF 
20BAFF 



309F 20C0FF 



30A2 
30A4 



A903 
8D5135 



LDA #0 

PHA 

PLP 



JSR SETNAM 



LDA #1 
LDX #0 
LDY #255 
JSR SETLFS 

JSR OPEN 



LDA #3 
STA MASK 



NOW THE STATUS REGISTER IS 
ZERO. 

OPEN THE SCREEN AS LOGICAL 
FILE #1: 

A ALREADY HOLDS *00, 
INDICATING NO FILE NAME. 

LOGICAL FILE NUMBER. 

DEVICE NUMBER OF THE SCREEN. 

(NO COMMAND. ) 

VIC KERNAL ROUTINE "SETLFS" 

NOW THE SCREEN IS LOGICAL FILE 
#1. 



SET HEXDUMP MASK TO 3, SO 
TVDUMP WILL OUTPUT EACH HEX 
LINE AS FOUR SCREEN LINES. 



354 



5:520 






5330 


30 A 7 


200/32 


5340 






5350 






5360 






5370 






5380 






5390 






5400 


30AA 


A901 


5410 


30AC 


20C3FF 


5420 






5430 


30AF 


60 


5440 






5450 







JSR VISMON 



LDA #1 
JSR CLOSE 

RTS 



CALL THE VISIBLE MONITOR. 



NOW THE VISIBLE MONITOR HAS 
RETURNED. 

30 CLOSE LOSICAL FILE #1: 



RETURN TO CALLER (PRESUMABLY 
BASIC, ) 







CROSS REFERENCE 


LISTING: 








ARROW 


3007 


BLANK 


3006 


CHKOUT 


FFC9 


CHROUT 


FFD2 


CLOSE 


FFC3 


DEVICE 


304C 


DUMMY 


3010 


EA 


3554 


ENTRY 


308F 


FIXCHR 


3011 


FIXEND 


3034 


HEX.PG 


3500 


HI PAGE 


3005 


HOME 


3000 


LENGTH 


304D 


MASK 


3551 


MLSAVE 


3062 


NAME 


304E 


OPEN 


FFC0 


OUTCHR 


3043 


ROMKEY 


3008 


ROMPRT 


300C 


ROMTVT 


300A 


ROW INC 


3002 


SA 


3552 


SAVE 


FR38 


SETLFS 


FFBA 


SETNAM 


FFPD 


SUB -40 


3031 


TV.FTR 


00FB 


TVCQLS 


3003 


TVROWS 


3004 


USROUT 


300E 


VICKEY 


3035 


VICPRT 


3041 


VICTVT 


303C 


VISMON 


3207 


XY.SET 


308B 
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Appendix CI 4: 

System Data Block for the 
Commodore 64 
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1000 
1010 

1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 



APPENDIX C14: 



ASSEMBLER LISTING OF 
SYSTEM DATA BLOCK 
FOR THE COMMODORE 64 



SEE APPENDIX B2 OF TOP-DOWN ASSEMBLY LANGUAGE 
PROGRAMMING FOR YOUR COMMODORE 64 AND VIC-20 



BY KEN SKIER 



COPYRIGHT (C) 1984 BY KENNETH SKIER 
LEXINGTON, MASSACHUSETTS 



TV.PTR = *FB 



POINTER TO CURRENT SCREEN 
LOCATION. 



VISMQN = $3207 TOP LEVEL OF THE VISIBLE 
MONITOR. 



HEX.PG = *3500 ADDRESS OF PAGE IN WHICH 
HEXDUMP CODE STARTS. 



SA 
EA 



= HEX.PG+*52 
= SA+2 



C64 KERNAL ROUTINES: 



CHKOUT = *FFC9 
CHROUT « *FFD2 
CLOSE = *FFC3 
OPEN = *FFC0 
SAVE = *FFD8 
SETLFS « *FFBA 
SETNAM = *FFBD 
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1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1660 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
i960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 



0000 = 3000 



3000 0004 



3002 28 



3002 



27 



3004 18 



3005 
3006 



07 
20 



3007 IE 



SCREEN PARAMETERS 



* = *3000 



HOME .WORD $400 THIS IS THE ADDRESS OF THE 
; CHARACTER IN THE UPPER LEFT 

; CORNER OF THE SCREEN. 

ROW INC .BYTE *28 ADDRESS DIFFERENCE FROM ONE 
; ROW TO THE NEXT. 

TVCOLS .BYTE 39 NUMBER OF COLUMNS ON SCREEN, 
; COUNTING FROM ZERO. 

TVROWS .BYTE 24 NUMBER OF ROWS ON SCREEN, 
; COUNTING FROM ZERO. 

HIPAGE .BYTE *07 HIGHEST PAGE IN SCREEN MEMORY. 

BLANK .BYTE *20 C64 DISPLAY CODE FOR A BLANK. 
5 (IN NORMAL VIDEO MODE.) 

ARROW .BYTE *1E C64 DISPLAY CODE FOR UP- ARROW. 



INPUT /OUTPUT VECTORS 



3008 3530 



ROMKEY -WORD C64KEY 



POINTER TO ROUTINE THAT GETS 
AN ASCII CHARACTER FROM THE 
KEYBOARD. (NOTEs C64KEY 
CALLS A ROM SUBROUTINE, BUT 
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2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 



300A 3C30 



300C 4130 



300E 1030 



3010 60 



3011 



3011 48 

3012 A5FC 

3014 48 

3015 18 

3016 69D4 



ROMTVT .WORD C64TVT 



ROMPRT -WORD C64PRT 



USROUT .WORD DUMMY 



DUMMY 
3 



RTS 



C64KEY IS NOT A C64 ROM 
SUBROUTINE. ) 



POINTER TO ROUTINE TO PRINT 

AN ASCII CHARACTER ON THE SCREEN 



POINTER TO ROUTINE TO SEND AN 
ASCII CHARACTER TO THE PRINTER 



POINTER TO USER-WRITTEN OUTPUT 
ROUTINE. (SET HERE TO DUMMY 
UNTIL YOU SET IT TO POINT 
TO YOUR OWN CHARACTER-OUTPUT 
ROUTINE. ) 



THIS IS A DUMMY SUBROUTINE. 
IT DOES NOTHING BUT RETURN. 



- ******************************************** 
I CONVERT ASCII CHARACTER TO DISPLAY CODE 

- ******************************************** 



FIXCHR 



PHA 

LDA TV.PTR+1 

PHA 

CLC 

ADC #*D4 



A CHARACTER IS IN A. WE 
MUST CONVERT IT TO PROPER 
C64 DISPLAY CODE. 

BUT FIRST, PUT A COLOR CODE 
IN APPROPRIATE BYTE OF 
COLOR MEMORY. (OTHERWISE, 
THAT BYTE IN COLOR MEMORY 
MIGHT BE ZERO, RENDERING 
THE CHARACTER INVISIBLE.) 

SAVE THE CHARACTER TO BE 

DISPLAYED. 

SAVE HIGH BYTE... 

...OF TV.PTR. 

MAKE TV.PTR POINT 

TO APPROPRIATE BYTE 
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2620 


3018 


85FC 


2630 


301A 


A000 


2640 


30 1C 


ADB602 


2650 






2660 






2670 






2680 


301F 


91FB 


2690 






2700 


3021 


68 


2710 


3022 


85FC 


2720 






2730 


3024 


68 


2740 






2750 






2760 


3025 


38 


2770 


3026 


C940 


2780 






2790 






2800 


3028 


900A 


2810 






2820 


302A 


C960 


2830 






2840 


302C 


9003 


2850 






2860 






2870 






2880 






2890 


302E 


E920 


2900 






2910 






2920 


3030 


60 


2930 






2940 






2950 


3031 


38 


2960 


3032 


E940 


2970 






2980 


3034 


60 


2990 






3000 






3010 






3020 






3030 






3040 






3050 






3060 






3070 






3080 






3090 






3100 






3110 






3120 






3130 






3140 






3150 


3035 


20E4FF 



STA TV.PTR+1 
LDY #0 
LDA *286 



STA (TV.PTR) ,V 

PLA 

STA TV.PTR+1 

PLA 



OF COLOR MEMORY. 

GET CURRENT COLOR CODE. 

STORE IT IN APPROPRIATE 
BYTE OF COLOR MEMORY: 



SEC 

CMP #*40 



BCC FIXEND 
CMP #*60 
BCC SUB. 40 

SBC #*20 
RTS 



SUB. 40 



FIXEND 

; 



SEC 

SBC #$40 

RTS 



RESTORE HIGH BYTE OF TV.PTR 
TO ITS ORIGINAL VALUE. 

RETRIEVE CHARACTER TO BE 
DISPLAYED. 

PREPARE TO COMPARE. 

IS IT LESS THAN *40? (IS 

IT A NUMBER OR PUNCTUATION 

MARK?) 

IF SO, NO CONVERSION NEEDED. 

IS IT IN THE RANGE *40...*5F? 

IF SO, SUBTRACT $40 TO 
CONVERT FROM ASCII TO C64. 

IT'S > $5F. 

SUBTRACT *20 TO CONVERT 
LOWER CASE ASCII TO C64 CODE. 

AND RETURN. 



PREPARE TO SUBTRACT. 
SUBTRACT #40 TO CONVERT ASCII 
UPPER CASE CHAR TO C64 CODE. 
RETURN, WITH A HOLDING 
C64 DISPLAY CODE FOR ASCII 
ORIGINALLY IN A. 



GET AN ASCII CHARACTER FROM THE KEYBOARD 
♦if****************************************** 



C64KEY JSR SFFE4 



GET A KEYBOARD CHARACTER. 
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3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 



3038 
3039 



AA 
F0FA 



303B 60 



TAX 

BEQ C64KEY 



RTS 



IS IT ZERO? 

ZERO MEANS NO KEY, SO 

SCAN AGAIN. 

RETURN WITH ASCII CHARACTER 
FROM THE KEYBOARD. 



******************************************** 

PRINT AN ASCII CHARACTER ON THE SCREEN 
******************************************** 



303C A201 



303E 4C4330 



C64TVT LDX #1 



JMP OUTCHR 



WE'LL DEFINE LOGICAL FILE #1 
AS AN OUTPUT CHANNEL. 

OUTPUT THE CHARACTER IN A ON 
LOGICAL FILE "X". 



******************************************** 

PRINT AN ASCII CHARACTER ON A PRINTER 
******************************************** 



THIS PROCEDURE ASSUMES THAT 
THE USER HAS USED BASIC TO 
OPEN A DEVICE OR FILE AS 
LOGICAL FILE #2, BEFORE 
CALLING THE VISIBLE MONITOR. 
LOGICAL FILE #2 MIGHT BE A 
PRINTER, OR THE RS-232 PORT, 
OR EVEN A DISK OR CASSETTE 
FILE. THE IMPORTANT THING IS 
THAT IT'S OPEN, SO WE MAY 
OUTPUT TEXT TO IT. 



3041 A202 



C64PRT LDX #2 



WE'LL DEFINE LOGICAL FILE #2 
AS AN OUTPUT CHANNEL. 
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3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 



3043 

3043 48 

3044 20C9FF 

3047 68 

3048 20D2FF 

304B 60 



OUTCHR 



PHA 

J BR CHKOUT 

PLA 

JSR CHROUT 

RTS 



NOW OUTPUT CHARACTER IN A ON 
LOGICAL FILE "X": 



SAVE CHARACTER TO BE OUTPUT. 

SET LOGICAL FILE "X" FOR OUTPUT. 

RETRIEVE CHARACTER TO BE SENT. 

OUTPUT CHARACTER IN A ON 
THE CURRENTLY-OPEN CHANNEL. 

AND RETURN. 



******************************************** 

SAVE A MACHINE LANGUAGE PROGRAM 
ON TAPE OR DISK 

**************************************** «•*** 



THE FOLLOWING VARIABLES 
MUST BE SET, EITHER BY THE 
VISIBLE MONITOR OR BY A 
BASIC PROGRAM, BEFORE MLSAVE 
MAY BE CALLED. 



304C 01 



304D 00 



304E 00000000 

3052 00000000 

3056 00000000 

305A 00000000 

305E 00000000 



DEVICE .BYTE 1 



leng™ 

5 


■\ -BYTE 


5 
NAME 


.BYTE 0,0,0,0 




.BYTE 0,0,0,0 




-BYTE 0,0,0,0 




.BYTE 0,0,0,0 




.BYTE 0,0,0,0 



DEVICE TO BE USED FOR SAVE. 

1 SPECIFIES DATASETTE. 

8 SPECIFIES DISK DRIVE. 

THIS IS DECIMAL ADDRESS 12364. 

LENGTH OF FILENAME. 

THIS IS DECIMAL ADDRESS 12365. 

ROOM HERE (AT 12366) FOR A 
FILENAME OF UP TO 20 CHARACTERS. 



NOTE: THE POINTERS SA AND EA 
MUST ALSO BE SET, TO THE 
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4240 






4250 






4260 






4270 






4280 






4290 






4300 






4310 






4320 






4330 






4340 


3062 


A903 


4350 


3064 


AE4C30 


4360 


3067 


AS 


4370 


3068 


20BAFF 


4380 






4390 






4400 






4410 


306B 


AD4D30 


4420 






4430 


306E 


A24E 


4440 


3070 


A030 


4450 






4460 






4470 


3072 


20BDFF 


4480 






4490 






4500 






4510 


3075 


AD5235 


4520 


3078 


85FD 


4530 


30 7 A 


AD5335 


4540 


307 D 


85FE 


4550 






4560 


307F 


A9FD 


4570 






4580 


3081 


AE5435 


4590 


3084 


AC5535 


4600 






4610 






4620 






4630 






4640 






4650 






4660 


3087 


EB 


4670 


3088 


D001 


4680 


308A 


C8 


4690 






4700 






4710 


308B 


20D8FF 


4720 






4730 






4740 






4750 






4760 






4770 


308E 


60 



MLSAVE LDA #3 

LDX DEVICE 
TAY 

JBR SETLFS 



LDA LENGTH 



STARTIN6 AND ENDING ADDRESSES 
(RESPECTIVELY) OK THE PROGRAM 
TO BE SAVED- THEY MAY BE SET 
MOST CONVENIENTLY BY SIMPLY 
CALLING THE SUBROUTINE "SETADS" 
AT *35E3 (13795 DECIMAL). 



LOGICAL FILE NUMBER. 

DEVICE NUMBER. 

SECONDARY ADDRESS. 

CALL KERNAL ROUTINE "SETLFS". 

NOW THE C64 KNOWS WHAT DEVICE 

TO USE. 



GET LENGTH OF FILENAME. 



LDX #LOW(NAME> 
LDY #HIGH(NAME) 



JSR SETNAM 



LDA SA 

STA *FD 

LDA SA+1 

STA *FE 

LDA #*F-D 

LDX EA 

LDY EA+1 



1NX 

BNE XY.SET 

I NY 



XY.SET JSR SAVE 



RTS 



NOW (X,Y> POINTS TO THE FILE 

NAME. 

CALL KERNAL ROUTINE "SETNAM". 

NOW THE C64 KNOWS THE NAME OF 

THE FILE YOU WISH TO CREATE. 



NOW PTR AT *FD POINTS TO START 
OF THE ML PROGRAM. 
NOW A HOLDS ZERO PAGE OFFSET 
FOR THAT POINTER. 

NOW (X,Y) POINTS TO THE END OF 
THE ML PROGRAM. 

BUT THE KERNAL ROUTINE "SAVE" 
REQUIRES THAT (X,Y) POINT ONE 
BYTE BEYOND THE END OF THE 
ML PROGRAM. SO INCREMENT 
(X,Y> s 



NOW (X,Y) IS SET. 

CALL KERNAL ROUTINE "SAVE". 
THIS ACTUALLY OPENS A FILE AND 
STORES THE SPECIFIED PORTION OF 
MEMORY ON THE SPECIFIED DEVICE. 



RETURN TO CALLER (PRESUMABLY 
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4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 



308F A900 

3091 48 

3092 28 



3093 20BDFF 



3096 A901 

3098 A200 

309A A0FF 

309C 20BAFF 

309F 20C0FF 



30A2 200732 



30 A5 A901 
30A7 20C3FF 

30AA 60 



BASIC OR THE VISIBLE MONITOR.) 



VISIBLE MONITOR: ENTRY FROM BASIC 



ENTRY 



LDA #0 

PHA 

PLP 



JSR SETNAM 



LDA #1 
LDX #0 
LDY #255 
JSR SETLFS 

JSR OPEN 



JSR VISMON 



LDA #1 
JSR CLOSE 

RTS 



NOW THE STATUS REGISTER IS 
ZERO. 

OPEN THE SCREEN AS LOGICAL 
FILE #1: 

A ALREADY HOLDS $00, 
INDICATING NO FILE NAME. 

LOGICAL FILE NUMBER. 

DEVICE NUMBER OF THE SCREEN. 

(NO COMMAND. ) 

C64 KERNAL ROUTINE "SETLFS" 

NOW THE SCREEN IS LOGICAL FILE 
#1. 

CALL THE VISIBLE MONITOR. 



NOW THE VISIBLE MONITOR HAS 
RETURNED. 

SO CLOSE LOGICAL FILE #1: 



RETURN TO CALLER (PRESUMABLY 
BASIC. ) 
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CROSS REFERENCE LISTING: 



ARROW 


3007 


BLANK 


3006 


C64KEY 


3035 


C64PRT 


3041 


C64TVT 


303C 


CHKOUT 


FFC9 


CHROUT 


FFD2 


CLOSE 


FFC3 


DEVICE 


304C 


DUMMY 


3010 


EA 


3554 


ENTRY 


308F 


FIXCHR 


3011 


FIXEND 


3034 


HEX.PG 


3500 


HI PAGE 


3005 


HOME 


3000 


LENGTH 


304D 


MLSAVE 


3062 


NAME 


304E 


OPEN 


FFC0 


OUTCHR 


3043 


ROMKEY 


3008 


ROMPRT 


300C 


RQMTVT 


300A 


ROW INC 


3002 


SA 


3552 


SAVE 


FFD8 


SETLFS 


FFBA 


SETNAM 


FFBD 


SUB. 40 


3031 


TV.PTR 


00FB 


TVCOLS 


3003 


TVROWS 


3004 


usrou r 


300E 


VISMON 


3207 


XY.SEF 


308B 
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Appendix D I : 

Screen Utilities 

APPENDIX Dl: SCREEN UTILITIES 



SEE CHAPTER 5 OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20. 



DUMPING *3 100-$31 El 



0123456 7 89ABCDEF 

3100 20 C4 31 20 2B 31 AE 03 30 AC 04 30 20 13 31 20 

3110 D3 31 60 8E 2A 31 98 AA AD 06 30 AC 2A 31 91 FB 

3120 88 10 FB 20 76 31 CA 10 EF 60 27 A2 00 A0 00 18 

3130 90 0A AD 04 30 4A A8 AD 03 30 4A AA 38 EC 03 30 

3140 90 03 AE 03 30 38 CC 04 30 90 03 AC 04 30 AD 00 

3150 30 85 FB AD 01 30 85 FC 08 D8 8A 18 65 FB 90 03 

3160 E6 FC 18 C0 00 F0 0B 18 6D 02 30 90 02 E6 FC 88 

3170 D0 F5 85 FB 28 60 AD 02 30 18 90 05 20 9B 31 A9 

3180 01 08 D8 18 65 FB 90 02 E6 FC 85 FB 38 AD 05 30 

3190 C5 FC B0 05 AD 01 30 85 FC 28 60 20 1 1 30 A0 00 

31A0 91 FB 60 48 4A 4A 4A 4A 20 B6 31 20 7C 31 68 20 

3iB0 B6 31 20 7C 31 60 08 D8 29 0F C9 0A 30 02 69 06 

31C0 69 30 28 60 68 AA 68 A8 A5 FC 48 A5 FB 48 98 48 

31 DO 8A 48 60 68 AA 68 A8 68 85 FB 68 85 FC 98 48 8A 

31E0 48 60 



END OF APPENDIX Dl <- 
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Appendix D2: 

Visible Monitor (Top Level and 
Display Subroutines) 



APPENDIX D2: THE VISIBLE MONITOR 

(TOP LEVEL & DISPLAY SUBS) 



SEE CHAPTER 6 OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20. 



DUMPING *3200-*32D3 



3200 


00 


00 


00 


00 


3210 


90 


F6 


20 


C4 


3220 


32 


20 


D3 


31 


3230 


03 


20 


13 


31 


3240 


32 


B9 


53 


32 


3250 


F0 


60 


0A 


41 


3260 


01 


20 


3C 


31 


3270 


20 


7F 


31 


20 


3280 


31 


20 


7F 


31 


3290 


E0 


04 


D0 


F2 


32A0 


06 


32 


85 


FC 


32B0 


AC 


00 


32 


38 


32C0 


AA 


A0 


02 


20 


32D0 


0B 


0E 


11 
CKir 


14 
\ etc 



23456789ABCDEF 

00 05 32 08 D8 20 12 32 20 E3 32 18 
31 20 25 32 20 35 32 20 5D 32 20 B0 
60 A2 00 A0 00 20 3C 31 AE 03 30 A0 
60 A2 0B A0 00 20 3C 31 A0 00 8C 52 
20 7C 31 EE 52 32 AC 52 32 C0 0A D0 
20 20 58 20 20 59 20 20 50 A2 00 A0 
AD 06 32 20 A3 31 AD 05 32 20 A3 31 
95 32 48 20 A3 31 20 7F 31 68 20 7C 
A2 00 BD 01 32 20 A3 31 20 7F 31 E8 
60 A5 FB 48 A6 FC AD 05 32 85 FB AD 
FC A0 00 Bl FB A8 68 85 FB 86 FC 98 60 
C0 07 90 05 A0 00 8C 00 32 B9 CD 32 
3C 31 AD 07 30 20 7C 31 60 03 06 08 



END OF APPENDIX D2 
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Appendix D3: 

Visible Monitor (Update Subroutine) 



APPENDIX D3s THE VISIBLE MONITOR 

(UPDATE SUBROUTINE) 



SEE CHAPTER 6 OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20. 



DUMPING *32E0~*33EE 



012 3 456789ABCDEF 

32E0 6C 08 30 20 E0 32 C9 ID D0 10 EE 00 32 AD 00 32 

32F0 G9 07 D0 05 A9 00 8D 00 32 60 C9 9D D0 0B CE 00 

3300 32 10 05 A9 06 8D 00 32 60 C9 20 D0 09 EE 05 32 

3310 D0 03 EE 06 32 60 C9 0D D0 0C AD 05 32 D0 03 CE 

3320 06 32 CE 05 32 60 AE 00 32 E0 02 D0 IB A8 A5 FB 

333B 48 A6 FC AD 05 32 85 FB AD 06 32 85 FC 98 A0 00 

3340 91 FB 86 FC 68 85 FB 60 C9 47 D0 23 AC 03 32 AE 

3350 02 32 AD 04 32 48 AD 01 32 28 20 6C 33 08 8D 01 

3360 32 8E 02 32 8C 03 32 68 8D 04 32 60 6C 05 32 48 

3370 20 D5 33 30 4B A8 68 98 AE 00 32 D0 14 A2 03 18 

3380 0E 05 32 2E 06 32 CA 10 F6 98 0D 05 32 8D 05 32 

3390 60 E0 01 D0 18 29 0F 48 20 95 32 0A 0A 0A 0A 29 

33A0 F0 8D AC 33 68 0D AC 33 20 2D 33 60 00 CA CA CA 

33B0 A0 03 18 IE 01 32 88 10 F9 ID 01 32 ?D 01 32 60 

33C0 68 C9 93 D0 04 20 00 31 60 C9 51 D0 04 68 68 28 

33D0 60 20 10 30 60 38 E9 30 90 OF C9 0A 90 0E E9 07 

33E0 C9 10 B0 05 38 C9 0A B0 03 A9 FF 60 A2 00 60 



END OF APPENDIX D3 <- 
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Appendix D4: 

Print Utilities 

APPENDIX D4: PRINT UTILITIES 



SEE CHAPTER 7 OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20. 



DUMPING $3400-*3543 



0123456789ABCDEF 

3400 FF FF 00 20 00 00 0C 35 A9 FF 8D 01 34 60 A9 00 

3410 BD 01 34 60 A9 FF 8D 00 34 60 A9 00 8D 00 34 60 

3420 A9 FF 8D 02 34 60 A9 00 8D 02 34 60 20 08 34 20 

3430 14 34 20 20 34 60 20 0E 34 20 1 A 34 20 26 34 60 

3440 C9 00 F0 24 8D 03 34 AD 01 34 F0 06 AD 03 34 20 

3450 69 34 AD 00 34 F0 06 AD 03 34 20 6C 34 AD 02 34 

3460 F0 06 AD 03 34 20 6F 34 60 6C 0A 30 6C 0C 30 6C 

3470 0E 30 A9 0D 20 40 34 A9 0A 20 40 34 60 A9 20 20 

3480 40 34 60 48 4 A 4A 4 A 4A 20 B6 31 20 40 34 68 20 

3490 B6 31 20 40 34 60 A9 20 8E 04 34 48 AE 04 34 F0 

34 A0 0A CE 04 34 20 40 34 68 18 90 F0 68 60 8E 04 34 

34B0 AE 04 34 F0 09 CE 04 34 20 72 34 18 90 F2 60 8E 

34C0 05 34 B5 01 48 B5 00 48 AE 05 34 Al 00 C9 FF F0 

34D0 0C F6 00 D0 02 F6 01 20 40 34 18 90 EB 68 95 00 

34E0 68 95 01 60 68 AA 68 A8 20 12 35 8E 05 32 8C 06 

34F0 32 20 0D 33 20 0D 33 20 95 32 C9 FF F0 06 20 40 

3500 34 18 90 F0 AE 05 32 AC 06 32 20 2B 35 98 48 8A 

3510 48 60 68 8D 06 34 68 8D 07 34 AD 06 32 48 AD 05 

3520 32 48 AD 07 34 48 AD 06 34 48 60 68 8D 06 34 68 

3530 8D 07 34 68 8D 05 32 68 8D 06 32 AD 07 34 48 AD 

3540 06 34 48 60 



END OF APPENDIX D4 
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Appendix D5: 

Two Hexdump Tools 

APPENDIX D5: TWO HEXDUMP TOOLS 



SEE CHAPTER S OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20. 



DUMPING *3550-*37A6 



23456789ABCDEF 



3550 


00 


07 


50 


35 


A6 


37 


00 


20 


08 


34 


A9 


04 


8D 


50 


35 


AD 


3560 


05 


32 


29 


F0 


8D 


05 


32 


20 


9B 


35 


20 


7D 


34 


20 


7D 


34 


3570 


20 


94 


35 


20 


0D 


33 


AD 


05 


32 


2D 


51 


35 


D0 


EF 


20 


72 


3580 


34 


AD 


05 


32 


29 


0F 


D0 


03 


20 


72 


34 


CE 


50 


35 


D0 


D7 


3590 


20 


0E 


34 


60 


20 


95 


32 


20 


83 


34 


60 


AD 


06 


32 


20 


83 


35A0 


34 


AD 


05 


32 


20 


83 


34 


60 


20 


C3 


35 


20 


E3 


35 


20 


9A 


35B0 


37 


20 


14 


34 


20 


E5 


36 


20 


3C 


37 


10 


FB 


20 


72 


34 


20 


35C0 


1A 


34 


60 


20 


08 


34 


20 


1A 


34 


20 


E4 


34 


7F 


0D 


50 


52 


35D0 


49 


4E 


54 


49 


4E 


47 


20 


48 


45 


58 


44 


55 


4D 


50 


0D 


0A 


35E0 


0A 


FF 


60 


20 


08 


34 


20 


E4 


34 


7F 


0D 


0A 


53 


45 


54 


20 


35F0 


53 


54 


41 


52 


54 


49 


4E 


47 


20 


41 


44 


44 


52 


45 


53 


53 


3600 


20 


41 


4E 


44 


20 


50 


52 


45 


53 


53 


20 


22 


51 


22 


2E 


FF 


3610 


20 


07 


32 


20 


61 


36 


20 


08 


34 


20 


E4 


34 


7F 


0D 


0A 


53 


3620 


45 


54 


20 


45 


4E 


44 


20 


41 


44 


44 


52 


45 


53 


53 


20 


41 


3630 


4E 


44 


20 


50 


52 


45 


53 


53 


20 


22 


51 


22 


2E 


FF 


20 


07 


3640 


32 


38 


AD 


06 


32 


CD 


53 


35 


90 


24 


D0 


08 


AD 


05 


32 


CD 


3650 


52 


35 


90 


1A 


AD 


06 


32 


8D 


55 


35 


AD 


05 


32 


8D 


54 


35 


3660 


60 


AD 


06 


32 


8D 


53 


35 


AD 


05 


32 


8D 


52 


35 


60 


20 


E4 


3670 


34 


7F 


0D 


0A 


0A 


0A 


20 


45 


52 


52 


4F 


52 


21 


21 


21 


20 


3680 


45 


4E 


44 


20 


41 


44 


44 


52 


45 


53 


53 


20 


4C 


45 


53 


53 


3690 


20 


54 


48 


41 


4E 


20 


53 


54 


41 


52 


54 


20 


41 


44 


44 


52 


36A0 


45 


53 


53 


2C 


20 


57 


48 


49 


43 


48 


20 


49 


53 


20 


FF 


20 


36B0 


B5 


36 


4C 


16 


36 


A9 


24 


20 


40 


34 


AD 


53 


35 


20 


83 


34 


36C0 


AD 


52 


35 


20 


83 


34 


60 


A9 


24 


20 


40 


34 


AD 


55 


35 


20 


36D0 


83 


34 


AD 


54 


35 


20 


83 


34 


60 


20 


B5 


36 


A9 


2D 


20 


40 
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36E0 34 20 C7 36 60 20 E4 34 7F 0D 0A 0A 44 55 4D 50 

36P0 49 4E 47 20 FF 20 D9 36 20 72 34 20 E4 34 7F 0A 

^7W 0A 20 20 20 20 20 20 20 20 30 20 20 31 20 20 32 

3710 20 20 33 20 20 34 20 20 35 20 20 36 20 20 37 20 

3720 20 38 20 20 39 20 20 41 20 20 42 20 20 43 20 20 

3730 44 20 20 45 20 20 46 0D 0A 0A FF 60 20 72 34 AD 

3740 05 32 48 29 0F 8D 56 35 68 29 F0 8D 05 32 20 9B 

3750 35 A2 03 20 96 34 AD 56 35 F0 0D A2 03 20 96 34 

3760 20 0D 33 CE 56 35 D0 F3 20 94 35 20 7D 34 20 7D 

3770 37 30 09 AD 05 32 29 0F C9 00 D0 EC 60 38 AD 06 

3780 32 CD 55 35 90 0B D0 0F 38 AD 05 32 CD 54 35 B0 

3790 06 20 0D 33 A9 00 60 A9 FF 60 AD 52 35 8D 05 32 

37A0 AP 53 35 8D 06 32 60 



END OF APPENDIX D5 



374 



Appendix D6: 

Table-Driven Disassembler (Top 
Level and Utility Subroutines) 



APPENDIX D6: DISASSEMBLER 

(TOP LEVEL & UTILITY SUBROUTINES) 



SEE CHAPTER 9 OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20. 



DUMPING *3900-*3A42 



0123456789ABCD 



3900 


05 


00 


00 


00 


00 


00 


00 


00 


0B 


20 


08 


34 


AD 


00 


39 


8D 


3910 


01 


39 


A9 


FF 


8D 


54 


35 


8D 


55 


35 


20 


72 


34 


20 


7D 


39 


3920 


CE 


01 


39 


D0 


F8 


60 


20 


1A 


34 


20 


08 


34 


20 


E4 


34 


7F 


3930 


0D 


0A 


20 


20 


20 


20 


20 


50 


52 


49 


4E 


54 


49 


4E 


47 


20 


3940 


44 


49 


53 


41 


53 


53 


45 


4D 


42 


4C 


45 


52 


2E 


0D 


0A 


FF 


3950 


20 


E3 


35 


20 


14 


34 


20 


E4 


34 


7F 


0D 


0A 


44 


49 


53 


41 


3960 


53 


53 


45 


4D 


42 


4C 


49 


4E 


47 


20 


FF 


20 


D9 


36 


20 


9A 


3970 


37 


20 


72 


34 


20 


7D 


39 


10 


FB 


20 


1A 


34 


60 


20 


95 


32 


3980 


48 


20 


92 


39 


20 


7D 


34 


68 


20 


AF 


39 


20 


01 


3A 


20 


7D 


3990 


37 


60 


A2 


03 


8E 


02 


39 


AA 


BD 


00 


3C 


AA 


BD 


50 


3B 


8E 


39A0 


03 


39 


20 


40 


34 


AE 


03 


39 


E8 


CE 


02 


39 


D0 


EE 


60 


AA 


39B0 


BD 


00 


3D 


AA 


20 


B8 


39 


60 


BD 


26 


3B 


8D 


04 


39 


E8 


BD 


39C0 


26 


3B 


8D 


05 


39 


6C 


04 


39 


20 


0D 


33 


20 


94 


35 


60 


20 


39D0 


0D 


33 


20 


95 


32 


48 


20 


0D 


33 


20 


94 


35 


68 


20 


83 


34 


39E0 


60 


A9 


28 


D0 


02 


A9 


29 


20 


40 


34 


60 


A9 


2C 


20 


40 


34 


39F0 


A9 


58 


20 


40 


34 


60 


A9 


2C 


20 


40 


34 


A9 


59 


20 


40 


34 


3A00 


60 


8D 


07 


39 


8E 


06 


39 


CA 


30 


06 


20 


1A 


33 


CA 


10 


FA 


3A10 


08 


D8 


38 


AD 


08 


39 


E9 


04 


ED 


07 


39 


28 


AA 


20 


96 


34 


3A20 


20 


9B 


35 


20 


7D 


34 


20 


94 


35 


AD 


03 


30 


38 


C9 


18 


90 


3A30 


03 


20 


7D 


34 


20 


0D 


33 


CE 


06 


39 


10 


EA 


20 


1A 


33 


20 


3A40 


72 


34 


60 
civil 


\ ni 


- Af 


^pcr 


JHT! 


* n> 


k < 
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Appendix D7: 

Table-Driven Disassembler 
(Addressing Mode Subroutines) 



APPENDIX D7: DISASSEMBLER 

(ADDRESSING MODE SUBROUTINES) 



SEE CHAPTER 9 OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20- 



DUMPING $3A50-*3B43 

01 23456789ABCDEF 



3A50 


20 


CF 


39 


A2 


02 


A9 


04 


60 


20 


50 


3A 


20 


EB 


39 


A2 


02 


3A60 


A9 


06 


60 


20 


50 


3A 


20 


F6 


39 


A2 


02 


A9 


06 


60 


A9 


41 


3A70 


20 


40 


34 


A2 


00 


A9 


01 


60 


A2 


00 


A9 


00 


60 


A9 


23 


20 


3A80 


40 


34 


A9 


24 


20 


40 


34 


20 


C8 


39 


A2 


01 


A9 


04 


60 


20 


3A90 


El 


39 


20 


50 


3A 


20 


E5 


39 


A9 


06 


A2 


02 


60 


20 


El 


39 


3AA0 


20 


F3 


3A 


20 


E5 


39 


A2 


01 


A9 


06 


60 


20 


El 


39 


20 


EB 


3AB0 


3A 


20 


E5 


39 


20 


F6 


39 


A2 


01 


A9 


06 


60 


20 


0D 


33 


20 


3AC0 


12 


35 


20 


95 


32 


48 


20 


0D 


33 


68 


C9 


00 


10 


03 


CE 


06 


3AD0 


32 


08 


D8 


18 


6D 


05 


32 


90 


03 


EE 


06 


32 


8D 


05 


32 


28 


3AE0 


20 


9B 


35 


20 


2B 


35 


A2 


01 


A9 


04 


60 


20 


C8 


39 


A2 


01 


3AF0 


A9 


02 


60 


20 


EB 


3A 


20 


EB 


39 


A2 


01 


A9 


04 


60 


20 


EB 


3B00 


3A 


20 


F6 


39 


A2 


01 


A9 


04 


60 


68 


68 


68 


68 


20 


7D 


37 


3B10 


30 


0D 


20 


95 


32 


C9 


FF 


F0 


06 


20 


40 


34 


18 


90 


EE 


20 


3B20 


72 


34 


20 


7D 


37 


60 


78 


3A 


6E 


3A 


7D 


3A 


EB 


3A 


F3 


3A 


3B30 


FE 


3A 


50 


3A 


58 


3A 


63 


3A 


78 


3A 


BC 


3A 


9D 


3A 


AB 


3A 


3B40 


8F 


3A 
-> 


09 
PKir 


3B 


■ AF 


>PFh 


in tv 


r n-; 


r <r 
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Appendix D8: 

Table-Driven Disassembler (Tables) 



APPENDIX D8: DISASSEMBLER (TABLES) 



SEE CHAPTER 9 OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20. 



DUMPING *3B50-*3DFF 



012 3 456789ABCDEF 

3B50 7F 42 41 44 41 44 43 41 4E 44 41 53 4C 42 43 43 

3B60 42 43 53 42 45 51 42 49 54 42 4D 49 42 4E 45 42 

3B70 50 4C 42 52 4B 42 56 43 42 56 53 43 4C 43 43 4C 

3B80 44 43 4C 49 43 4C 56 43 4D 50 43 50 58 43 50 59 

3B90 44 45 43 44 45 58 44 45 59 45 4F 52 49 4E 43 49 

3BA0 4E 58 49 4E 59 4A 4D 50 4A 53 52 4C 44 41 4C 44 

3BB0 58 4C 44 59 4C 53 52 4E 4F 50 4F 52 41 50 48 41 

3BC0 50 48 50 50 4C 41 50 4C 50 52 4F 4C 52 4F 52 52 

3BD0 54 49 52 54 53 53 42 43 53 45 43 53 45 44 53 45 

3BE0 49 53 54 41 53 54 58 53 54 59 54 41 58 54 41 59 

3BF0 54 53 58 54 58 41 54 58 53 54 59 41 54 45 58 FF 

SC&& 22 6A 01 01 01 6A 0A 01 70 6A 0A 01 01 6A 0A 01 

3C10 IF 6A 01 01 01 6A 0A 01 2B 6A 01 01 01 6A 0A 01 

3C20 58 07 01 01 16 07 79 01 76 07 79 01 16 07 79 01 

3C30 19 07 01 01 01 07 79 01 88 07 01 01 01 07 79 01 

3C40 7F 49 01 01 01 49 64 01 6D 49 64 01 55 49 64 01 

3C50 25 49 01 01 01 49 64 01 31 49 01 01 01 49 64 01 

3C60 82 04 01 01 01 04 7C 01 73 04 7C 01 55 04 7C 01 

3C70 28 04 01 01 01 04 7C 01 8E 04 01 01 01 04 7C AC 

3C80 01 91 01 01 97 91 94 01 46 01 A3 01 97 91 94 01 

3C90 0D 91 01 01 97 91 94 01 A9 91 A3 01 01 91 01 01 

3CA0 61 5B 5E 01 61 5B 5E 01 9D 5B 9A 01 61 5B 5E 01 

3CB0 10 5B 01 01 61 5B 5E 01 34 5B 9E 01 61 5B 5E 01 

3CC0 3D 37 01 01 3D 37 40 01 52 37 43 01 3D 3/ 40 01 

3CD0 1C 37 01 01 01 37 40 01 2E 37 01 01 01 37 40 01 
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3CE0 3A 85 01 01 3A 85 4C 01 4F 85 67 01 3A 85 4C 01 

3CF0 13 85 01 01 01 85 4C 01 8B 85 01 01 01 85 4C 01 

Znaa 12 16 00 00 00 06 06 00 12 04 02 00 00 0C 0C 00 

3D10 14 18 00 00 00 0E 0E 00 12 10 00 00 00 16 16 00 

3020 0C 16 00 00 06 06 06 00 12 04 02 00 0C 0C 0C 00 

3D30 14 18 00 00 00 08 08 00 12 10 00 00 00 0E 0E 00 

3D40 12 16 00 00 00 06 06 00 12 0C 02 00 0C 0C 0C 00 

3D50 14 18 00 00 00 08 08 00 12 10 00 00 00 0E 0E 00 

3D60 12 16 00 00 00 06 06 00 12 04 02 00 1A 0C 0C 00 

3D 70 14 18 00 00 00 08 08 00 12 10 00 00 00 0E 0E 1C 

3D80 00 16 00 00 06 06 06 00 12 00 12 00 0C 0C 0C 00 

3D90 14 18 00 00 08 08 0A 00 12 10 12 00 00 0E 00 00 

3DA0 04 16 04 00 06 06 06 00 12 04 12 00 0C 0C 0C 00 

3DB0 14 18 00 00 08 08 0A 00 14 10 12 00 0E 0E 10 00 

SDCfd 04 16 00 00 06 06 06 00 12 04 12 00 0C 0C 0C 00 

3DD0 14 18 00 00 00 08 08 00 12 10 00 00 00 0E 0E 00 

3DE0 04 16 00 00 06 06 06 00 12 04 12 00 0C 0C 0C 00 

3DF0 14 18 00 00 00 08 08 00 12 10 00 00 00 0E 0E 00 



END OF AFPENDIX D8 
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Appendix D9: 

Move Utilities 

APPENDIX D9: MOVE UTILITIES 



SEE CHAPTER 10 OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20. 



DUMPING $37B0-*38EE 



37B0 


00 


00 


00 


00 


20 


08 


34 


20 


E4 


34 


7F 


0D 


0A 


20 


20 


20 


37C0 


20 


20 


4D 


4F 


56 


45 


20 


54 


4F 


4F 


4C 


2E 


0D 


0A 


0A 


FF 


37D0 


20 


E3 


35 


20 


B9 


38 


AE 


55 


35 


38 


AD 


54 


35 


ED 


52 


35 


37E0 


8D 


B0 


Z7 


B0 


02 


CA 


38 


8A 


ED 


53 


35 


8D 


Bl 


37 


B0 


03 


37F0 


A9 


00 


60 


A0 


03 


B9 


FB 


00 


48 


88 


10 


F9 


38 


AD 


53 


35 


3800 


CD 


B3 


37 


90 


40 


D0 


18 


AD 


52 


35 


CD 


B2 


37 


90 


36 


D0 


3810 


0E 


A0 


00 


68 


99 


FB 


00 


C8 


C0 


04 


D0 


F7 


A9 


FF 


60 


20 


3820 


A4 


38 


A0 


00 


AE 


Bl 


37 


F0 


0E 


Bl 


FB 


91 


FD 


CB 


D0 


F9 


3830 


E6 


FC 


E6 


FE 


CA 


D0 


F2 


88 


C8 


Bl 


FB 


91 


FD 


CC 


B0 


37 


3840 


D0 


F6 


4C 


11 


38 


AD 


Bl 


37 


F0 


48 


AC 


Bl 


37 


AD 


B0 


37 


3850 


38 


E9 


FF 


B0 


01 


88 


AA 


84 


FE 


8A 


18 


6D 


52 


35 


85 


FB 


3860 


90 


01 


C8 


98 


6D 


53 


35 


85 


FC 


8A 


18 


6D 


B2 


37 


85 


FD 


3870 


90 


02 


E6 


FE 


A5 


FE 


6D 


B3 


37 


85 


FE 


AE 


Bl 


37 


A0 


FF 


3880 


Bl 


FB 


91 


FD 


88 


D0 


F9 


Bl 


FB 


91 


FD 


C6 


FC 


C6 


FE 


CA 


3890 


D0 


EC 


20 


A4 


38 


AC 


B0 


37 


Bl 


FB 


91 


FD 


88 


C0 


FF 


D0 


38A0 


F7 


4C 


11 


38 


AD 


52 


35 


85 


FB 


AD 


53 


35 


85 


FC 


AD 


B2 


3SB0 


37 


85 


FD 


AD 


B3 


37 


85 


FE 


60 


20 


08 


34 


20 


E4 


34 


7F 


38C0 


0D 


0A 


53 


45 


54 


20 


44 


45 


53 


54 


49 


4E 


41 


54 


49 


4F 


38D0 


4E 


20 


41 


4E 


44 


20 


50 


52 


45 


53 


53 


20 


51 


2E 


FF 


20 


38E0 


07 


32 


AD 

PMl 


05 

r> ni 


32 

- ai 


8D 


B2 
mot: 


37 


AD 

:? < 


06 
.* 


32 


8D 


B3 


37 


60 
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Appendix DIO: 

Simple Text Editor 

APPENDIX D10: A SIMPLE TEXT EDITOR 



SEE CHAPTER 1 1 OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20. 



DUMPING $3E00-*3FFF 



012 3 456789ABCDEF 

3E00 00 00 20 0F 3E 20 37 3E 20 C8 3E 18 18 90 F6 20 

3E10 08 34 20 E4 34 7F 0D 0A 0A 53 45 54 20 55 50 20 

3E20 45 44 49 54 20 42 55 46 46 45 52 2E 0D 0A 0A FF 

3E30 20 E3 35 20 9A 37 60 20 C4 31 20 2B 31 AE 03 30 

3E40 A0 03 20 13 31 20 2B 31 20 76 31 20 C4 31 20 5E 

3E50 3E 20 D3 31 20 76 31 20 88 3E 20 D3 31 60 20 12 

3E60 35 AD 03 30 4A AA CA 20 1A 33 CA 10 FA AD 03 30 

3E70 8D 00 3E 20 95 32 20 9B 31 20 7F 31 20 0D 33 CE 

3E80 00 3E 10 EF 20 2B 35 60 AD 03 30 4A E9 02 20 81 

3E90 31 AD 01 3E C9 01 D0 05 A9 49 18 90 02 A9 4F 20 

3EA0 9B 31 A9 02 20 81 31 AD 07 30 20 9B 31 A9 02 20 

3EB0 81 31 AD 06 32 20 A3 31 AD 05 32 20 A3 31 60 00 

3EC0 93 94 ID 9D 10 14 51 00 20 E0 32 CD C6 3E D0 17 

3ED0 48 20 E0 32 CD C6 ZE D0 04 68 68 68 60 8D C7 3E 

3EE0 68 20 E7 3E AD C7 3E CD CI 3E D0 0B CE 01 3E 10 

3EF0 05 A9 01 8D 01 3E 60 CD C2 3E D0 04 20 79 3F 60 

3F00 CD C3 3E D0 04 20 87 3F 60 CD C5 3E D0 04 20 DD 

3F10 3F 60 CD C4 3E D0 04 20 C5 3F 60 CD C0 3E D0 04 

3F20 20 B4 3F 60 AE 01 3E F0 04 20 34 3F 60 20 2D 33 

3F30 20 7D 37 60 48 20 12 35 AD 53 35 48 AD 52 35 48 

3F40 AD 55 35 48 AD 54 35 48 20 61 36 20 7D 37 30 1 1 

3F50 20 E2 38 AD 54 35 D0 03 CE 55 35 CE 54 35 20 D6 

3F60 37 68 8D 54 35 68 8D 55 35 68 8D 52 35 68 8D 53 

3F70 35 20 2B 35 68 20 2D 3F 60 20 95 32 C9 FF F0 04 

3F80 20 7D 37 60 A9 FF 60 38 AD 53 35 CD 06 32 90 0C 
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3F90 DO 10 AD 52 35 CD 05 32 F0 17 B0 06 20 1A 33 A9 

3FA0 00 60 AD 52 35 8D 05 32 AD 53 35 8D 06 32 A9 00 

3FB0 60 A9 FF 60 20 9 A 37 A9 FF 20 2D 33 20 7D 37 10 

3FC0 F6 20 9A 37 60 213 9A 37 20 14 34 20 95 32 C9 FF 

3FD0 F0 08 20 40 34 20 7D 37 10 Fl 4C 1A 34 20 12 35 

3FE0 AD 53 35 48 AD 52 35 48 20 E2 38 20 7D 37 20 61 

3FF0 36 20 D6 37 68 8D 52 35 68 8D 53 35 20 2B 35 60 



-> END OF APPENDIX D10 
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Appendix DM: 

Extending the Visible Monitor 

APPENDIX Dll: EXTENDING THE VISIBLE MONITOR 



SEE CHAPTER 12 OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20. 



DUMPING *30B0-*30FC 



012 3 456789ABCDEF 

30B0 C9 50 D0 09 AD 00 34 49 FF 8D 00 34 60 C9 55 D0 

30C0 09 AD 02 34 49 FF 8D 02 34 60 C9 48 D0 0D AD 00 

30D0 34 D0 04 20 57 35 60 20 A8 35 60 C9 4D D0 04 20 

30E0 B4 37 60 C9 3F D0 0D AD 00 34 D0 04 20 09 39 60 

30F0 20 26 39 60 C9 54 D0 04 20 02 3E 60 60 



END OF APPENDIX Dll 
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Appendix DI2: 

System Data Block for the VIC-20 



APPENDIX D12: SYSTEM DATA BLOCK FOR THE VIC-20 



SEE APPENDIX Bl OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20. 



DUMPING *3000-$30AF 



012 3 456789ABCDEF 

3000 00 10 16 15 18 11 20 IE 35 30 3C 30 41 30 10 30 

3010 60 48 A5 FC 48 18 69 84 85 FC A0 00 AD 86 02 91 

3020 FB 68 85 FC 68 38 C9 40 90 0A C9 60 90 03 E9 20 

Z^ZSi 60 38 E9 40 60 20 E4 FF AA F0 FA 60 A2 01 4C 43 

3040 30 A2 02 48 20 C9 FF 68 20 D2 FF 60 01 00 00 00 

3050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

3060 00 00 A9 03 AE 4C 30 A8 20 BA FF AD 4D 30 A2 4E 

Zm7^ A0 30 20 BD FF AD 52 35 85 FD AD 53 35 85 FE A9 

3080 FD AE 54 35 AC 55 35 E8 D0 01 C8 20 D8 FF 60 A9 

3090 00 48 28 20 BD FF A9 01 A2 00 A0 FF 20 BA FF 20 

30 A0 C© FF A9 03 8D 51 35 20 07 32 A9 01 20 C3 FF 60 



END OF APPENDIX D12 
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Appendix Dl 3: 

System Data Block for the 
Commodore 64 



APPENDIX D13: SYSTEM DATA BLOCK FOR THE COMMODORE 64 



SEE CHAPTER B2 OF TOP-DOWN ASSEMBLY LANGUAGE PROGRAMMING 
FOR YOUR COMMODORE 64 OR VIC-20. 



DUMPING *3000-*30AA 



012 3 4567S9ABCDEF 

3000 00 04 28 27 18 07 20 IE 35 30 3C 30 41 30 10 30 

3010 60 48 A5 FC 48 18 69 D4 85 FC A0 00 AD 86 02 91 

3020 FB 68 85 FC 68 38 C9 40 90 0A C9 60 90 03 E9 20 

3030 60 38 E9 40 60 20 E4 FF A A F0 FA 60 A2 01 4C 43 

3040 30 A2 02 48 20 C9 FF 68 20 D2 FF 60 01 00 00 00 

3050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

3060 00 00 A9 03 AE 4C 30 A8 20 BA FF AD 4D 30 A2 4E 

3070 A0 30 20 BD FF AD 52 35 85 FD AD 53 35 85 FE A9 

3080 FD AE 54 35 AC 55 35 E8 D0 01 C8 20 D8 FF 60 A9 

3090 00 48 28 20 BD FF A9 01 A2 00 A0 FF 20 BA FF 20 

30A0 C0 FF 20 07 32 A9 01 20 C3 FF 60 



END OF APPENDIX D13 
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Appendix E I : 

Screen Utilities 



APPENDIX El: 



SCREEN UTILITIES 



THE FOLLOWING DATA STATEMENTS CONTAIN 
DECIMAL OBJECT CODE AND CHECKSUMS 
FOR MEMORY FROM 12544 TO 12769 
SUITABLE FOR LOADING WITH THE 
BASIC OBJECT CODE LOADER. 



1000 


DATA 


12544, 


1001 


DATA 


12552, 


1002 


DATA 


12560, 


1003 


DATA 


12568, 


1004 


DATA 


12576, 


1005 


DATA 


12584, 


1006 


DATA 


12592, 


1007 


DATA 


12600, 


1008 


DATA 


12608, 


1009 


DATA 


12616, 


1010 


DATA 


1 2624 , 


1011 


DATA 


12632, 


1012 


DATA 


12640, 


1013 


DATA 


12648, 


1014 


DATA 


12656, 


1015 


DATA 


12664, 


1016 


DATA 


1 2672 , 


1017 


DATA 


12680, 


1018 


DATA 


1 2688 , 


1019 


DATA 


12696, 


1020 


DATA 


12704, 


1021 


DATA 


12712, 


1022 


DATA 


12720, 


1023 


DATA 


12728, 


1024 


DATA 


12736, 


1025 


DA i A 


12744, 


1026 


DATA 


12752, 


1027 


DATA 


12760, 


1028 


DATA 


12768, 
crwn np 



32, 196, 49, 32, 43, 49, 174, 3, 13122 
48, 172, 4, 48, 32, 19, 49, 32, 12956 
211, 49, 96, 142, 42; 49, 152, 170, 13471 
173, 6, 48, 172, 42, 49, 145, 251, 13454 
136, 16, 251, 32, 118, 49, 202, 16, 13396 
239, 96, 39, 162, 0, 160, 0, 24, 13304 
144, 10, 173, 4, 48, 74, 168, 173, 13386 
3, 48, 74, 170, 56, 236, 3, 48, 13238 

144, 3, 174, 3, 48, 56, 204, 4, 13244 
48, 144, 3, 172, 4, 48, 173, 0, 13208 

48, 133, 251, 173, 1, 48, 133, 252, 13663 
8, 216, 138, 24, 101, 251, 144, 3, 13517 
230, 252, 24, 192, 0, 240, 11, 24, 13613 
109, 2, 48, 144, 2, 230, 252, 136, 13571 
208, 245, 133, 251, 40, 96, 173, 2, 13804 
48, 24, 144, 5, 32, 155, 49, 169, 13290 
1, 8, 216, 24, 101, 251, 144, 2, 13419 
230, 252, 133, 251, 56, 173, 5, 48, 13828 
197, 252, 176, 5, 173, 1, 48, 133, 13673 
252, 40, 96, 32, 17, 48, 160, 0, 13341 

145, 251, 96, 72, 74, 74, 74, 74, 13564 
32, 182, 49, 32, 124, 49, 104, 32, 13316 
182, 49, 32, 124, 49, 96, 8, 216, 13476 
41, 15, 201, 10, 48, 2, 105, 6, 13156 
105, 48, 40, 96, 104, 170, 104, 168, 13571 
165, 252, 72, 165, 251, 72, 152, 72, 13945 
138, 72, 96, 104, 170, 104, 168, 104, 13708 
133, 251, 104, 133, 252, 152, 72, 138, 13995 
72, 96, 0, 255, 0, 255, 0, 255, 13701 



END OF APPENDIX El 
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Appendix E2: 

Visible Monitor (Top Level and 
Display Subroutines) 



APPENDIX E5 



THE VISIBLE MONITOR 
<TOP LEVEL & DISPLAY SUBROUTINES) 



THE FOLLOWING DATA STATEMENTS CONTAIN 
DECIMAL OBJ EC I CODE AND CHECKSUMS 
FOR MEMORY FROM 12800 TO 13011 
SUITABLE FOR LOADING WITH THE 
BASIC OBJECT CODE LOADER. 



1100 


DATA 


12800, 


1101 


DATA 


12808, 


1102 


DATA 


12816, 


1103 


DATA 


12824, 


1104 


DATA 


12832, 


1105 


DATA 


12840, 


1106 


DATA 


12848, 


1107 


DATA 


12856, 


1108 


DATA 


12864, 


1109 


DATA 


12872, 


1110 


DATA 


12880, 


1111 


DATA 


12888, 


1112 


DATA 


12896, 


1113 


DATA 


12904, 


1114 


DATA 


12912, 


1115 


DATA 


12920, 


1116 


DATA 


12928, 


1117 


DATA 


12936, 


1118 


DATA 


12944, 


1119 


DATA 


12952, 


1120 


DATA 


12960, 


1121 


DATA 


12968, 


1122 


DATA 


12976, 


1123 


DATA 


12984, 


1124 


DATA 


12992, 


1125 


DATA 


13000, 


1126 


DATA 


13008, 



0, 0, 0, 0, 0, 0, 0, 8, 12808 
216, 32, 18, 50, 32, 227, 50, 24, 13457 
144, 246, 32, 196, 49, 32, 37, 50, 13602 
32, 53, 50, 32, 93, 50, 32, 176, 13342 
50, 32, 211, 49, 96, 162, 0, 160, 13592 
0, 32, 60, 49, 174, 3, 48, 160, 13366 
3, 32, 19, 49, 96, 162, 11, 160, 13380 

0, 32, 60, 49, 160, 0, 140, 82, 13379 
50, 185, 83, 50, 32, 124, 49, 238, 13675 
82, 50, 172, 82, 50, 192, 10, 208, 13718 
240, 96, 10, 65, 32, 32, 88, 32, 13475 
32, 89, 32, 32, 80, 162, 0, 160, 13475 

1, 32, 60, 49, 173, 6, 50, 32, 13299 
163, 49, 173, 5, 50, 32, 163, 49, 13588 
32, 127, 49, 32, 149, 50, 72, 32, 13455 
163, 49, 32, 127, 49, 104, 32, 124, 13600 

49, 32, 127, 49, 162, 0, 189, 1, 13537 

50, 32, 163, 49, 32, 127, 49, 232, 13670 
224, 4, 208, 242, 96, 165, 251, 72, 14206 
166, 252, 173, 5, 50, 133, 251, 173, 14155 
6, 50, 133, 252, 160, 0, 177, 251, 13989 
168, 104, 133, 251, 134, 252, 152, 96, 14258 
172, 0, 50, 56, 192, 7, 144, 5, 13602 

160, 0, 140, 0, 50, 185, 205, 50, 13774 
170, 160, 2, 32, 60, 49, 173, 7, 13645 
48, 32, 124, 49, 96, 3, 6, 8, 13366 
11, 14, 17, 20, 0, 255, 0, 255, 13580 



END OF APPENDIX E2 
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Appendix E3: 

Visible Monitor (Update Subroutine) 



APPENDIX E3: 



THE VISIBLE MONITOR (UPDATE SUBROUTINE) 



THE FOLLOWING DATA STATEMENTS CONTAIN 
DECIMAL OBJECT CODE AND CHECKSUMS 
FOR MEMORY FROM 13024 TO 13294 
SUITABLE FOR LOADING WITH THE 
BASIC OBJECT CODE LOADER. 



1200 


DATA 


1 3024 , 


1201 


DATA 


13032, 


1202 


DATA 


13040, 


1203 


DATA 


13048, 


1204 


DATA 


13056, 


1205 


DATA 


13064, 


1206 


DATA 


13072, 


1207 


DATA 


13080, 


1208 


DATA 


13088, 


1209 


DATA 


13096, 


1210 


DATA 


13104, 


1211 


DATA 


13112, 


1212 


DATA 


13120, 


1213 


DATA 


13128, 


1214 


DATA 


13136, 


1215 


DATA 


13144, 


1216 


DATA 


13152, 


1217 


DA7A 


13160, 


1218 


DATA 


13168, 


1219 


DATA 


13176, 


1220 


DATA 


13184, 


1221 


DATA 


13192, 


1222 


DATA 


13200, 


1223 


DATA 


13208, 


1224 


DATA 


13216, 


1225 


DATA 


13224, 


1226 


DATA 


13232, 


1227 


DATA 


13240, 




4486 
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1228 


DATA 


1229 


DATA 


1230 


DATA 


1231 


DATA 


1232 


DATA 


1233 


DATA 



13248, 104, 201, 147, 208, 4, 32, 0, 49, 13993 

13256, 96, 201, 81, 208, 4, 104, 104, 40, 14094 

13264, 96, 32, 16, 48, 96, 56, 233, 48, 13889 

13272, 144, 15, 201, 10, 144, 14, 233, 7, 14040 

13280, 201, 16, 176, 5, 56, 201, 10, 176, 14121 

13288, 3, 169, 255, 96, 162, 0, 96, 255, 14324 



END OF APPENDIX E3 



388 



Appendix E4: 

Print Utilities 



APPENDIX E4: 



PRINT UTILITIES 



THE FOLLOWING DATA STATEMENTS CONTAIN 
DECIMAL OBJECT CODE AND CHECKSUMS 
FOR MEMORY FROM 13312 TO 13635 
SUITABLE FOR LOADING WITH THE 
BASIC OBJECT CODE LOADER. 



1300 


DATA 


13312, 


1301 


DATA 


13320, 


1302 


DATA 


13328, 


1303 


DATA 


13336, 


1304 


DATA 


13344, 


1 305 


DATA 


13352, 


1306 


DATA 


13360, 


1307 


DATA 


13368, 


1308 


DATA 


13376, 


1309 


DATA 


13384, 


1310 


DATA 


13392, 


1311 


DATA 


13400, 


1312 


DATA 


13408, 


1313 


DATA 


13416, 


1314 


DATA 


13424, 


1315 


DATA 


13432, 


1316 


DATA 


13440, 


1317 


DATA 


13448, 


1318 


DATA 


13456, 


1319 


DATA 


1 3464 , 


1320 


DATA 


13472, 


1321 


DATA 


13480, 


1322 


DATA 


13488, 


1323 


DATA 


13496, 


1324 


DATA 


13504, 


1325 


DATA 


13512, 


1326 


DATA 


13520, 


1327 


DATA 


13528, 
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1328 


DATA 


1 3536 , 


1329 


DATA 


13544, 


1330 


DATA 


13552, 


1331 


DATA 


13560, 


1332 


DATA 


13568, 


1333 


DATA 


13576, 


1334 


DATA 


13584, 


1335 


DATA 


13592, 


1336 


DATA 


13600, 


1337 


DATA 


13608, 


1338 


DATA 


13616, 


1339 


DATA 


13624, 


1340 


DATA 


13632, 



104, 149, 1, 96, 104, 170, 104, 168, 14432 
32, 18, 53, 142, 5, 50, 140, 6, 13990 
50, 32, 13, 51, 32, 13, 51, 32, 13826 
149, 50, 201, 255, 240, 6, 32, 64, 14557 
52, 24, 144, 240, 174, 5, 50, 172, 14429 

6, 50, 32, 43, 53, 152, 72, 138, 14122 
72, 96, 104, 141, 6, 52, 104, 141, 14300 

7, 52, 173, 6, 50, 72, 173, 5, 14130 
50, 72, 173, 7, 52, 72, 173, 6, 14205 
52, 72, 96, 104, 141, 6, 52, 104, 14235 
141, 7, 52, 104, 141, 5, 50, 104, 14220 
141, 6, 50, 173, 7, 52, 72, 173, 14298 
6, 52, 72, 96, 0, 255, 0, 255, 14368 



> END OF APPENDIX E4 
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Appendix E5: 

Two Hexdump Tools 



APPENDIX E5: 



TWO HEXDUMP TOOLS 



THE FOLLOWING DATA STATEMENTS CONTAIN 
DECIMAL OBJECT CODE AND CHECKSUMS 
FOR MEMORY FROM 13648 TO 14246 
SUITABLE FOR LOADING WITH THE 
BASIC OBJECT CODE LOADER. 



1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



13648 
13656 
13664 
13672 
13680 
13688 
13696 
13704 
13712 
13720 
13728 
13736 
13744 
13/52 
13760 
13768 
13776 
13784 
13792 
13800 
13808 
13816 
1 3824 
13832 
13840 
13848 
13856 
13864 
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Appendix E6: 

Table-Driven Disassembler (Top 
Level and Utility Subroutines) 



APPENDIX E6: 



DISASSEMBLER (TOP LEVEL & UTILITY SUBS) 



THE FOLLOWING DATA STATEMENTS CONTAIN 
DECIMAL OBJECT CODE AND CHECKSUMS 
FOR MEMORY FROM 14592 TO 14914 
SUITABLE FOR LOADING WITH THE 
BASIC OBJECT CODE LOADER. 



1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
150S 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



14592 
14600 
14608 
14616 
14624 
14632 
14640 
14648 
14656 
14664 
14672 
14680 
14688 
14696 
14704 
14712 
14720 
14728 
14736 
14744 
14752 
14760 
14768 
14776 
14784 
14792 
14800 
14808 
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1528 


DATA 


14816, 


1529 


DATA 


14824, 


1530 


DATA 


14832, 


1531 


DATA 


14840, 


1532 


DATA 


14848, 


1533 


DATA 


14856, 


1534 


DATA 


14864, 


1535 


DATA 


14872, 


1536 


DATA 


14880, 


153? 


DATA 


14888, 


1538 


DATA 


14896, 


1539 


DATA 


1 4904 , 


1540 


DATA 

> 


14912, 
Phin nr 



96, 169, 40, 208, 2, 169, 41, 32, 15573 

t!i 5 ^' 96 ' 169 ' 44 ' 32 » 64 ' 52 > 15397 
169, 88, 32, 64, 52, 96, 169, 44, 15546 
32, 64, 52, 169, 89, 32, 64, 52, 15394 
J6, 141, 7, 57, 142, 6, 57, 202, 15556 
48, 6, 32, 26, 51, 202, 16, 250, 15487 
8, 216, 56, 173, 8, 57, 233, 4, 15619 
237, 7, 57, 40, 170, 32, 150, 52, 15617 
32, 155, 53, 32, 125, 52, 32, 148, 15509 
53, 173, 3, 48, 56, 201, 24, 144, 15590 
o, 32, 125, 52, 32, 13, 51, 206, 15410 
<S 57, 16, 234, 32, 26, 51, 32, 15358 
114, 52, 96, 93, 0, 255, 0, 255, 15775 



END OF APPENDIX E6 
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Appendix E7: 

Table-Driven Disassembler 
(Addressing Mode Subroutines) 



APPENDIX fc£7: 



DISASSEMBLER (ADDRESSING MODE SUBROUTINES) 



THE FOLLOW I NB DATA STATEMENIS CONTAIN 
DECIMAL OBJECT CODE AND CHECKSUMS 
FOR MEMORY FROM 14928 TO 15171 
SUITABLE FOR LOADING WITH THE 
BASIC OBJECT CODE LOADER. 



16(3(3 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



14928, 

14936, 

14944, 

14952, 

14960, 

14968, 

14976, 

14984, 

14992, 

1 5000 , 

15008, 

15016, 

15024, 

15032, 

15040, 

15048, 

15056, 

15064, 

15072, 

1 5080 , 

15088, 

15096, 

15104, 

15112, 

15120, 

15128 

15136, 

15144, 




395 



16^8 DATA 15152, 254, 58, 80, 58, 88, 58, 99, 58, 15905 

\tll Uf™ 1516B ' 120 ' 58 ' 18B ' 5S ' 157 ' 58 ' 171, SB, 16028 
1630 DATA 15168, 143, 58, 9, 59, 0, 255, 255, 15947 



-> END OF APPENDIX E7 <- 
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Appendix E8: 

Table-Driven Disassembler (tables) 



APPENDIX E8s 



DISASSEMBLER (TABLES) 



THE FOLLOWING DATA STATEMENTS CONTAIN 
DECIMAL OBJECT CODE AND CHECKSUMS 
FOR MEMORY FROM 15134 TO 15871 
SUITABLE FOR LOAD INS WITH THE 
BASIC OBJECT CODE LOADER- 



1700 


DATA 


1701 


DATA 


1702 


DATA 


1703 


DATA 


1704 


DATA 


1705 


DATA 


1706 


DATA 


1707 


DATA 


1708 


DATA 


1709 


DATA 


1710 


DATA 


1711 


DATA 


1712 


DATA 


1713 


DATA 


1714 


DATA 


1715 


DATA 


1716 


DATA 


1717 


DATA 


1718 


DATA 


1719 


DATA 


1720 


DATA 


1721 


DATA 


1722 


DATA 


1723 


DATA 


1724 


DATA 


1725 


DATA 


1726 


DATA 


1727 


DATA 
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1782 


DATA 


1783 


DATA 


1784 


DATA 


1785 


DATA 

> 



15840, 4, 22, 0, 0, 6, 6, 6, 0, 15884 

15848, 18, 4, 18, 0, 12, 12, 12, 0, 15924 

15856, 20, 24, 0, 0, 0, 8, 8, 0, 15916 

15864, 18, 16, 0, 0, 0, 14, 14, 0, 15926 



END OF APPENDIX E8 <- 
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Appendix E9: 

Move Utilities 



APPENDIX E9: 



MOVE UTILITIES 



THE FOLLOWING DATA STATEMENTS CONTAIN 
DECIMAL OBJECT CODE AND CHECKSUMS 
FOR MEMORY FROM 14256 TO 14574 
SUITABLE FOR LOADING WITH THE 
BASIC OBJECT CODE LOADER. 



1800 


DATA 


14256, 


1801 


DATA 


14264, 


1802 


DATA 


14272, 


1803 


DATA 


14280, 


1804 


DATA 


14288, 


1805 


DATA 


14296, 


1806 


DATA 


14304, 


1807 


DATA 


14312, 


1808 


DATA 


14320, 


1809 


DATA 


14328, 


1810 


DATA 


14336, 


1811 


DATA 


14344, 


1812 


DATA 


14352, 


1813 


DATA 


14360, 


1814 


DATA 


14368, 


1815 


DATA 


14376, 


1816 


DATA 


14384, 


1817 


DATA 


14392, 


1818 


DATA 


14400, 


1819 


DATA 


14408, 


1820 


DATA 


14416, 


1821 


DATA 


14424, 


1822 


DATA 


14432, 


1823 


DATA 


14440, 


1824 


DATA 


14448, 


1825 


DATA 


14456, 


1826 


DATA 


14464, 


1827 


DATA 


14472, 



0, 0, 0, 0, 32, 8, 52, 32, 14380 
228, 52, 127, 13, 10, 32, 32, 32, 14790 
32, 32, 77, 79, 86, 69, 32, 84, 14763 
79, 79, 76, 46, 13, 10, 10, 255, 14848 
32, 227, 53, 32, 185, 56, 174, 85, 15132 
53, 56, 173, 84, 53, 237, 82, 53, 15087 
141, 176, 55, 176, 2, 202, 56, 138, 15250 
237, 83, 53, 141, 177, 55, 176, 3, 15237 
169, 0, 96, 160, 3, 185, 251, 0, 15184 
72, 136, 16, 249, 56, 173, 83, 53, 15166 
205, 179, 55, 144, 64, 208, 24, 173, 15388 
82, 53, 205, 178, 55, 144, 54, 208, 15323 
14, 160, 0, 104, 153, 251, 0, 200, 15234 
192, 4, 208, 247, 169, 255, 96, 32, 15563 
164, 56, 160, 0, 174, 177, 55, 240, 15394 
14, 177, 251, 145, 253, 200, 208, 249, 15873 
230, 252, 230, 254, 202, 208, 242, 136, 16138 
200, 177, 251, 145, 253, 204, 176, 55, 15853 
208, 246, 76, 17, 56, 173, 177, 55, 15408 
240, 72, 172, 177, 55, 173, 176, 55, 15528 
56, 233, 255, 176, 1, 136, 170, 132, 15575 
254, 138, 24, 109, 82, 53, 133, 251, 15468. 
144, 1, 200, 152, 109, 83, 53, 133, 15307 
252, 138, 24, 109, 178, 55, 133, 253, 15582 
144, 2, 230, 254, 165, 254, 109, 179, 15785 
55, 133, 254, 174, 177, 55, 160, 255, 15719 
177, 251, 145, 253, 136, 208, 249, 177, 16060 
251, 145, 253, 198, 252, 198, 254, 202, 16225 
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1828 


DATA 


14480, 


1829 


DATA 


14488, 


1830 


DATA 


14496, 


1831 


DATA 


14504, 


1832 


DATA 


14512, 


1833 


DATA 


14520, 


1834 


DATA 


14528, 


1835 


DATA 


14536, 


1836 


DATA 


14544, 


1837 


DATA 


14552, 


1838 


DATA 


14560, 


1839 


DATA 


14568, 
crwn np 




END OF APPENDIX E9 
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Appendix EIO: 

Simple Text Editor 



APPENDIX E10: 



A SIMPLE TEXT EDITOR 



THE FOLLOWING DATA STATEMENTS CONTAIN 
DECIMAL OBJECT CODE AND CHECKSUMS 
FOR MEMORY FROM 15872 TO 16383 
SUITABLE FOR LOADING WITH THE 
BASIC OBJECT CODE LOADER. 



1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



15872, 

15880, 

15888, 

15896, 

15904, 

15912, 

15920, 

15928, 

15936, 

15944, 

15952, 

15960, 

15968, 

15976, 

15984, 

1599 

16000, 

16008, 

16016, 

16024, 

16032, 

16040, 

16048, 

16056, 

16064, 

16072, 

16080, 

16088, 
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1928 


DATA 


1929 


DATA 


1930 


DATA 


1931 


DATA 


1932 


DATA 


1933 


DATA 


1934 


DATA 


1935 


DATA 


1936 


DATA 


1937 


DATA 


1938 


DATA 


1939 


DATA 


1940 


DATA 


1941 


DATA 


1942 


DATA 


1943 


DATA 


1944 


DATA 


1945 


DATA 


1946 


DATA 


1947 


DATA 


1948 


DATA 


1949 


DATA 


1950 


DATA 


1951 


DATA 


1952 


DATA 


1953 


DATA 


1954 


DATA 


1955 


DATA 


1956 


DATA 


1957 


DATA 


1958 


DATA 


1959 


DATA 


1960 


DATA 


1961 


DATA 


1962 


DATA 


1963 


DATA 

s. 




END OF APPENDIX E10 
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Appendix Ell: 

Extending the Visible Monitor 

APPENDIX Ell: EXTENDING THE VISIBLE MONITOR 



THE FOLLOWING DATA STATEMENTS CONTAIN 
DECIMAL OBJECT CODE AND CHECKSUMS 
FOR MEMORY FROM 12464 TO 12540 
SUITABLE FOR LOADING WITH THE 
BASIC OBJECT CODE LOADER. 



2000 DATA 12464, 201, 80, 208, 9, 173, 0, 52, 73, 13260 

2001 DATA 12472, 255, 141, 0, 52, 96, 201, 85, 208, 13510 

2002 DATA 12480, 9, 173, 2, 52, 73, 255, 141, 2, 13187 

2003 DATA 12488, 52, 96, 201, 72, 208, 13, 173, 0, 13303 

2004 DATA 12496, 52, 208, 4, 32, 87, 53, 96, 32, 13060 

2005 DATA 12504, 168, 53, 96, 201, 77, 208, 4, 32, 13343 

2006 DATA 12512, 180, 55, 96, 201, 63, 208, 13, 173, 13501 

2007 DATA 12520, 0, 52, 208, 4, 32, 9, 57, 96, 12978 

2008 DATA 12528, 32, 38, 57, 96, 201, 84, 208, 4, 13248 

2009 DATA 12536, 32, 2, 62, 96, 96, 126, 145, 154, 13249 



> END OF APPENDIX Ell 
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Appendix El 2: 

System Data Block for the VIC-20 



APPENDIX £12: 



SYSTEM DATA BLOCK FOR THE VIC-20 



THE FOLLOWING DATA STATEMENTS CONTAIN 
DECIMAL OBJECT CODE AND CHECKSUMS 
FOR MEMORY FROM 12288 TO 12458 
SUITABLE FOR LOADING WITH THE 
BASIC OBJECT CODE LOADER- 



2100 


DATA 


12288, 


2101 


DATA 


12296, 


2102 


DATA 


12304, 


2103 


DATA 


12312, 


2104 


DATA 


12320, 


2105 


DATA 


12328, 


2106 


DATA 


12336, 


2107 


DATA 


12344, 


2108 


DATA 


12352, 


2109 


DATA 


12360, 


2110 


DATA 


12368, 


2111 


DATA 


12376, 


2112 


DATA 


12384, 


2113 


DATA 


12392, 


2114 


DATA 


12400, 


2115 


DATA 


12408, 


2116 


DATA 


12416, 


2117 


DATA 


12424, 


2118 


DATA 


12432, 


2119 


DATA 


12440, 


2120 


DATA 


12448, 


2121 


DATA 


12456, 
CKin ntr 
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Appendix El 3: 

System Data Block for the 
Commodore 64 



APPENDIX El 3: SYSTEM DATA BLOCK FOR THE COMMODORE 64 



THE FOLLOWING DATA STATEMENTS CONTAIN 
DECIMAL OBJECT CODE AND CHECKSUMS 
FOR MEMORY FROM 12288 TO 12458 
SUITABLE FOR LOADING WITH THE 
BASIC OBJECT CODE LOADER. 



2160 DATA 12288, 0, 4, 40, 39, 24, 7, 32, 30, 12464 

2101 DATA 12296, 53, 48, 60, 48, 65, 48, 16, 48, 12682 

2102 DATA 12304, 96, 72, 165, 252, 72, 24, 105, 212, 13302 

2103 DATA 12312, 133, 252, 160, 0, 173, 134, 2, 145, 13311 

2104 DATA 12320, 251, 104, 133, 252, 104, 56, 201, 64, 13485 

2105 DATA 12328, 144, 10, 201, 96, 144, 3, 233, 32, 13191 

2106 DATA 12336, 96, 56, 233, 64, 96, 32, 228, 255, 13396 

2107 DATA 12344, 170, 240, 250, 96, 162, 1, 76, 67, 13406 

2108 DATA 12352, 48, 162, 2, 72, 32, 201, 255, 104, 13228 

2109 DATA 12360, 32, 210, 255, 96, 1, 0, 0, 0, 12954 

2110 DATA 12368, 0, 0, 0, 0, 0, 0, 0, 0, 12368 

2111 DATA 12376, 0, 0, 0, 0, 0, 0, 0, 0, 12376 

2112 DATA 12384, 0, 0, 169, 3, 174, 76, 48, 168, 13022 

2113 DATA 12392, 32, 186, 255, 173, 77, 48, 162, 78, 13403 

2114 DATA 12400, 160, 48, 32, 189, 255, 173, 82, 53, 13392 

2115 DATA 12408, 133, 253, 173, 83, 53, 133, 254, 169, 13659 

2116 DATA 12416, 253, 174, 84, 53, 172, 85, 53, 232, 13522 

2117 DATA 12424, 208, 1, 200, 32, 216, 255, 96, 169, 13601 

2118 DATA 12432, 0, 72, 40, 32, 189, 255, 169, 1, 13190 

2119 DATA 12440, 162, 0, 160, 255, 32, 186, 255, 32, 13522 

2120 DATA 12448, 192, 255, 32, 7, 50, 169, 1, 32, 13186 

2121 DATA 12456, 195, 255, 96, 255, 0, 255, 0, 255, 13767 



END OF APPENDIX E13 
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Appendix Fl: 



BASIC Program to Load Object 
Code for the Visible Monitor into 
Memory 



Appendix Fl: BASIC Program to Load Object Code 

for the Visible Monitor into Memory 

(An "E" appendix must be appended to 
this program. See Chapter 13.) 

100 REM OBJECT CODE LOADER 

110 : 

120 DIM BYTE (8) 

130 READ FIRST 

140 : 

150 READ LAST 

160 : 

170 FOR LINE=FIRST TO LAST 

180 GOSUB 300 

190 NEXT LINE 

200 PRINT "LOADED LINES" , FIRST, "THROUGH" , LAST, "SUCCESSFULLY. " 

210 END 

300 READ A 

310 SUM=A 

320 FOR J=l TO 8 

330 READ BYTE (J) 

340 SUM=SUM+BYTE(J) 

350 NEXT J 

370 READ CHECK 

380 IF SUMOCHECK THEN 500 

3 90 FOR J=l TO 8 

400 POKE A+J-1,BYTE(J) 

410 NEXT J 

420 RETURN 

500 PRINT "CHECKSUM ERROR IN DATA LINE", LINE 

510 PRINT"START ADDRESS IN BAD DATA LINE IS", A 

520 END 

600 DATA ??? : REM Number of first data line from an "E" appendix 

620 DATA ??? : REM Number of last data line from that "E" appendix. 

690 : 

700 REM An "E" appendix must follow... 
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Appendix F2: 

BASIC Program to SAVE a Machine 
Language Program to Tape or Disk 



Appendix F2: BASIC Program to SAVE 

a Machine Language Program 
to Tape or Disk 

(Requires Extended 
Visible Monitor) 



10 DEVICE=12364 

20 LNGTH =12365 

30 NAME =12366 

40 MLSAV =12386 

50 SETADS=13795 

60 : 

100 PRINT "SAVE A MACHINE LANGUAGE PROGRAM" 

110 PRINT 

120 INPUT "FILE NAME", -NAME? 

125 IF LEN(NAME$) >19 THEN NAME$=LEFT$ (NAME$ , 19) 

130 POKE LNGTH, LEN(NAME$) 

140 IF LEN(NAME$)=0 THEN 200 

150 : 

16 FOR J=l TO LEN(NAME$) 

170 : POKE NAME+J-1,ASC(MID$ (NAME$,J) ) 

180 NEXT J 

190 : 

200 PRINT "SAVE TO (T)APE OR (D) ISK?" 

210 GET A$:IF LEN(A$)=0 THEN 210 

220 IF A$="T" THEN POKE DEVICE, 1 :GOTO 300 

230 IF A$="D" THEN POKE DEVICE, 8 :GOTO 300 

240 PRINT "KEYSTROKE IGNORED. ": PRINT: GOTO 200 

250 : 

300 SYS (SETADS) : REM GET START, END ADDRESSES 

310 SYS (MLSAV) : REM SAVE THE PROGRAM ON DISK OR TAPE. 
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